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Vorwort 


Einige Bücher die den Commodore 64 zum Thema haben, sind 
schon auf dem Markt erhältlich. Die meisten Bücher sind 
jedoch für die Belange von bestimmten Anwendergruppen ge¬ 
schrieben worden: So gibt es Bücher die sich mit den spe¬ 
zifischen Internas des Commodore 64 beschäftigen, die je¬ 
doch nur dem Computer-Enthusiasten, der schon andere 
Maschinen kennt, bei seiner Arbeit unterstützen. Andere 
Bücher beschäftigen sich z.B. nur mit Spezialgebieten des 
Commodore 64, wie der hochauflösenden Grafik. 

Das vorliegende Buch soll für den Einsteiger mit dem Com¬ 
modore 64 eine Unterstützung sein. Das heißt nicht, daß 
dieses Buch einen kompletten Basic-Kurs beinhaltet, son¬ 
dern daß von Beginn an alle Möglichkeiten des Commodore 64 
beschrieben werden. Andere Bücher sind durchaus zur wei¬ 
teren Lektüre empfohlen, wie z.B. die Buchreihe 'Basic 
ohne Prob lerne'. 

Im ersten Kapitel werden zur Einführung einige Programme 
beschrieben, die in dieser Form auch auf anderen Rechnern 
(besonders anderen Commodore-Rechnern) laufen. Erst nach 
dieser Grundlage wird auf die speziellen Eigenschaften des 
Commodore 64 eingegangen. 

Die meisten Programme sind so aufgebaut, daß sie vom Leser 
noch nach seinen Wünschen ergänzt werden können. Für 
Übungszwecke werden immer wieder Tips für Änderungen oder 
Erweiterungen gegeben. In einigen Programmen (wie z.B. dem 
Programm für geometrische Berechnungen) wurden für diese 
Übungszwecke sogar der Platz freigehalten. Wie man daran 
leicht erkennen kann, ist nicht der Sinn dieses Buches, 
vorgefertigte Programme zu liefern, die ja auch auf Dis¬ 
kette lieferbar sind, sondern den Leser beim aktiven Ar¬ 
beiten mit seinem Rechner zu unterstützen. 

Das Autorenteam würde sich freuen, wenn Sie ihm Ihre Mei¬ 
nung zu dem Buch mitteilen würden. Dies kann in Form von 
Tips und Anregungen sein, aber auch konstruktive Kritik 
ist erwünscht. 

Bis auf Kapitel 5 - über Assembler selbst kann man ganze 
Bücher schreiben - wurde hohen Wert auf ausreichende Do¬ 
kumentation gelegt. In diesem Rahmen kann man nicht alle 
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Eigenschaften des Commodore 64 beschreiben. Deshalb wird 
u.a. die Beschreibung des Sound-Generators und der mehr¬ 
farbigen Grafiken in Band 3 vorgenommen. Band 2 wird sich 
ausschließlich mit Spielen beschäftigen. Aber nicht nur 
Spiele 'zum Abtippen' sondern zum eigenen Verfeinern. Wie 
in diesem Buch, werden auch in den weiteren lauffähige 
Programme zusammengestellt und mit Tips für Änderungen und 
Ergänzungen versehen. 

Nicht zuletzt wollen wir uns auch bei Frau Marga Strauss 
bedanken, unserem sympatischen 'Textautomaten ’ . Ohne Sie 
wäre das Buch sicher nicht so schnell zustande gekommen. 


München im November 1983 



Hans Lorenz Schneider 


Werner Eberl 
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Einleitung 


Wie im Vorwort bereits erwähnt, befaßt sich das vorlie¬ 
gende Buch mit Übungsprogrammen für den Computerneuling, 
aber auch die Computer-Freaks kommen nicht zu kurz. 

Im ersten Kapitel werden einige mathematische Programme 
besprochen, die zur Eingewöhnung an den Rechner und seine 
Handhabung dienen sollen. Von einer relativ einfachen ma¬ 
thematischen Operation (Matrizenmultiplikation) über noch 
einfachere geometrische Berechnungen - wo mehr Wert auf 
hierarchischen Menüaufbau gelegt wird - bis hin zu einem 
Grundgerüst für Statistikprogramme reicht hier die Palet¬ 
te. 

Das nächste Kapitel ist den Grafikzeichen gewidmet, nicht 
zu verwechseln mit der hochauflösenden Grafik. Hier werden 
zwei Programme vorgestellt, die mit Spielkarten zu tun ha¬ 
ben und einige Programmen zum Generieren von Balkendia¬ 
grammen. Die bis dahin vorgestellten Programme laufen 
ebenso auf anderen Commodore-Rechnern, wenn auch nicht mit 
unterschiedlichen Farben. 

Das dritte Kapitel widmet sich dann einer Besonderheit des 
Commodore 64: den Sprites. Da das Errechnen der benötigten 
Daten für die Sprites sehr mühsam ist, werden zunächst 
zwei Programme vorgestellt, mit denen man sich diese Sache 
etwas erleichtern kann. Im Folgenden wird darauf eingegan¬ 
gen, wie diese Sprites am Rechner verwaltet werden, wie 
sie bewegt werden, und wie man die Berührung von Sprites 
abprüfen kann. Den Abschluß bildet eine Zusammenfassung, 
in der auch Tips für die Erweiterung des in Kapitel 3 
durchgehend behandelten Spieles gegeben werden. 

Kapitel 4 beschäftigt sich mit der hochauflösenden Grafik, 
wobei zunächst auf die rechner isehen Internas des Commodo¬ 
re 64 eingegangen wird, die unbedingte Voraussetzung zum 
Verständnis der darauf folgenden Programme sind. Dann wer¬ 
den einige Untorprogramme vorgestellt, mit denen häufige 
geometrische Formen dargestellt werden können, sowie je 
ein Programm für Tortengrafik und Balkendiagramme. Es ist 
nur natürlich, daß mit Balkendiagrammen in hochauflösender 
Grafik eine feinere Darstellung möglich ist, wenn auch 
nicht eine bessere Auflösung. So werden doch z.B. die Bal¬ 
ken auch als Quader dargestellt, um ein räumliches Bild 
der Grafik zu bieten. 



H 


Einleitung 


Das Kapitel 5 ist - wie auch Kapitel 6 - für die Leser ge¬ 
dacht, die tiefer in den Commodorc 64 einsteigen wollen, 
und sich deshnlb auch nicht scheuen, Programme im Maschi¬ 
nencode zu schreiben. Ein Hilfsmittel für die Program¬ 
mierung im Maschinencode ist der vorgestellte Assembler, 
der selbst wieder ein Basic-Programm ist. 

Kapitel 6 beschäftigt sieh mit Basic-Erweiterungen, die 
zwangsläufig in Assembler programmiert sind. Wer sich bei 
den Grafikzeichnungen in Kapitel 4 über den hohen Rechen¬ 
zeitaufwand geärgert hat, der wird sicherlich gern auf die 
in Kapitel 6.2 beschriebenen Grafikerweiterungen zurück¬ 
greifen. Ab Kapitel 6.3 werden noch einige allgemeine Ba- 
sic-Ergänzungen angefügt. Zur Benutzung dieser Basic-Er- 
weiterungen ist es im Prinzip nicht notwendig die Maschi- 
nen-Programme zu verstehen. In diesen Kapiteln braucht man 
sich lediglich anzusehen, wie diese Befehle funktionieren, 
um sie verwenden zu können. 

Im letzten Kapitel werden noch einige allgemeine Tips und 
Tricks für den Commodore 64 vorgestellt, so z.B. die Über¬ 
nahme von Programmen der Serie 2000, sowie das Speichern 
von Programmen auf der Serie 8000, um mit den dort gege¬ 
benen Hilfsmitteln besser Programme editieren zu können. 
Weitere nützliche Hinweise folgen. 

Im Anhang werden noch einige ergänzende Tabellen darge¬ 
stellt, und als Abschluß bringen wir noch eine kurze Über¬ 
sicht, über die Thematik der nächsten Bände. 
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1. Programme - nicht nur für den Commodore 64 


Um auch den Anfängern, die erst ein wenig Basic anhand 
eines Basic-Lehrbuches gelernt haben, den Einstieg in den 
Commodore 64 zu ermöglichen, wurde extra dieses erste Ka¬ 
pitel geschrieben. Mit ihm werden solche Programme behan¬ 
delt, für die eigentlich die Computer entwickelt wurden: 
Mathematische Probleme. Mathematische Programme bilden 
auch ein gutes Beispiel Für die diversen Tätigkeiten des 
Computers: Einlesen von Daten / Verarbeiten von Daten / 
Ausgabe der verarbe i tenten Daten. Sie sind daher sehr gut 
zur Einführung in die Arbeitsweise eines Computer geeig¬ 
net. Das einzige was in diesen Programmen speziell für den 
Commodore 64 vorhanden ist, sind die Sonderzeichen für die 
Farbgebung. Anhand dieser Programme kann man auch schon 
seine Lieb 1 ingsfarbkomb ination zusammensuchen, indem die 
jeweils beschriebenen Farbbefehle (Sonderzeichen in einer 
Bildschirmausgabe / PKINT-Befeh 1) den eigenen Wünschen an¬ 
gepasst werden. 


1.1 MAMULT - Matrizenmultiplikation 


übungsziel: 

- INPUT-Befehl 

- PKINT-Befeh 1 

- einfache mathematische Berechnungen 

- IF-Abfragen 

- Dimensionierung von Feldern 


1 0 0 P O K E 5328@, b 
1 lö P0KE5328J. ,-t. 

120 I NF'UT "3il. MR TR 1X - 2EI LEN " ; Z1 
130 INPUT";! 3 ls;|:l . ■ 

140 PRINT" KPaa sOLL DIE MATRIX MIT’ SICH SELBST 

150 GETR$ : I FA*= " " T UEN 150 Ml JL TI PL IZIERT HERDEN " ; 

160 PRINTAT 

170 IFR$="J"THEH 250 

180 IFHT="N"THEN280 

1 90 GOTO 1.50 




16 


Kapitel 1.1 


288 I 

NPUT"gBSH2. MATRIX - 

- ZEILEN".;22 

218 I 

HPUT"MM2.MATRIX - 

SPALTEN" ,;S2 

228 IFS20Z1 THE H2 70i 


238 i 

•Ti ..1 i'h i” 

1-22081 TUEN 278 

; r~i "1” i"'i H iTi i‘ ;:i fi 


c:_ *-+ l. i L 1 

250 I 

H.J | M X 1.1 •: 11.1 

FZ 1 OS 1 7 HEI 1278 


260 T 

iO I 02000 


270 F 

■RI NT " SWUIE WOLLEN 

SIE DAS MACHEN????? 

1 000 

DIMA C Z 1 ,. S1 > : DI ME: <; 

72,S2 y 

1 0 :l 0 

FR INT" 3331" 


1 020 

FORI=1TOZ1 


1 030 

FORT =1 TOS1 


1848 

PR I NT " M : l C " f I " , " 

;.J; " :■ " • 

1850 

I NPIJTA < I ., J > 


.10601 

HEXT 


1070 

HEXT 


1080 

PRINT"3" 


1 090 

FORI=17022 


1 1 00 

FORT-; 1 TOS 2 


.1 1 1 0 

FR I NT " B C".;I 

J 

1120 

I NF UTE: C I , J > 


1 130 

HEXT 


1 140 

HEXT 


1 150 

DIMC<21,S2> 


1 160 

FORI=17021 


1 170 

FORJ=1 TOS2 


1 18.: 0 

FÜRK=1TOS1 


1 190 

C«: I .. J>=C< I .. J > +FI < I 

,K::'*BCK,J> 

1 200 

1 

NEXTK 



HEXT I 


1230 

PRINT":]" 


1240 

P0KE53231,7 


1250 

PR I NT " SJERGEEiN IS : 

("21" * "S2"—MATRIX 

1268 

FORI = 1T021 


1270 

PRINT 


1280 

FOR J= 1 TOS: 2 


1290 

PRINTCCI,J>, 


1 300 

NEXTJ 


1310 

HEXT I 


1328 

print" ;aeifl 


1330 

END 


2000 

DIMAC21,21> 


2010 

FOR1=1T021 


2820 

FORJ=1T021 


2830 

PR INT" äßlUA C " : I : " 

, " J" y " 

2840 

INPUTAC I ,' .J> 



2058 NEXTJ 
2868 HEXTI 
2870 DIMCCZl,21> 
2088 FORI=1TOZ1 


sEHD 





MAMULT - Matrizenmultiplikation 


17 


2090 F 0RJ=1 T0Z1 
2100 F ORK-1TOZ1 

21. 10 C < I , J > = C < I , J > 4 R < I , K > *R < K... J > 

2120 NEXTK 
2130 NEKT..T 
2140 HEXT I 
2150 PRINT"IX 
2160 PÜKE53281 ..7 
21 70 F'OKE53280,7 

2 18 0 PRIN T"3ER G E B NIS : £ *' Z1 " * "ZI”- IT Fl T RIX > .BDagJ 

2190 FÜRI=1TGZ1 

2200 PRINT 

2210 FÜRJ=1TOZ1 

2220 PR I NTC: (. I... J> 

2230 HEXTJ 
2240 NEXTI 

2250 pr i nt" aas 

2260 END 


Ein in der Mathematik immer wiederkehrendes Problem ist 
die Multiplikation zweier Matrizen. Mit dem in diesem 
Kapitel beschriebenen Programm, wollen wir das Prinzip 
eines jeden Computereinsatzes verdeutlichen: 


Eingabe von Daten 


i 


Verarbeiten von Daten 


! 

! 


Ausgabe von Daten 
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In diesem einfachen Falle hier wollen wir das Einlesen 
über die Tastatur nehmen und die Ausgabe auf dem Bild¬ 
schirm. In größeren Programmen wird auch immer wieder die¬ 
ses Schema verfolgt, nur werden die einzelnen Teile immer 
wieder ineinander geschachtelt und die Ausgabe-/ Eingabe- 
Medien können auch z.B. externe Speicher wie Kassettenre¬ 
corder oder Floppylaufwerke oder Plattengeräte sein. 

In den beiden ersten Zeilen wird nur die Hintergrundfarbe 
des Bildschirms und der Rahmen mit der Farbe blau belegt. 
Als Schrift wurde schwarz gewählt. Bereits ab Zeile 120 
werden Daten eingelesen. Bevor jedoch die Einträge einer 
Matrix eingelesen werden, muß man zuerst dem Computer sa¬ 
gen, wieviele Zeilen und Spalten die Matrix haben soll 
(ZI, Sl). Auch hier wieder ein Hinweis: Vergeben Sie für 
die verwendeten Variablen möglichst sogenannte mnemo¬ 
technische Bezeichnungen. Z.B. die Variable ZI deutet auf 
'Zeilenzahl 1. Matrix' und die Variable Sl auf 'Spalten- 
zah1 1. Matrix' hin. 

Dann kommt schon eine anwenderfreundliche Eingabe, in dem 
der Rechner fragt ob die Matrix mit sich selbst multipli¬ 
ziert werden soll. In diesem Falle können die Werte der 2. 
Matrix aus den Variablen für die Werte der 1. Matrix her¬ 
ausgeholt werden, und die erneute Eingabe der gleichen Ma¬ 
trizenwerte entfällt. 

In den Zeilen 150 bis 190 ist eine einfache Tastaturabfra¬ 
ge auf die Buchstaben 'J' und 'N'. Dabei wird zunächst ein 
Zeichen von der Tastatur eingelesen (GET A$). Im weiteren 
Verlauf der Zeile 150 wird abgefragt ob ein Zeichen an der 
Tastatur gedrückt wurde, wenn nicht, wird die Zeile 150 
als ständige Warteschleife durchlaufen bis ein Zeichen 
über die Tastatur eingegeben wird. Dieses Zeichen wird in 
Zeile 160 am Bildschirm ausgegeben und in den Zeilen 170 
und 180 findet eine Plausibilitätsprüfung statt. Gleich¬ 
zeitig mit der Plausibilitätsprüfung wird entweder die 
Eingabe der zweiten Matrix übersprungen oder nicht. Wurde 
ein von 'J' oder 'N’ verschiedenes Zeichen eingegeben, so 
springt der Rechner wieder zur Einleseschleife. 

Als nächste Daten werden die Zeilen und Spalten der 2. 
Matrix eingelesen. Auch hier erfolgt anschließend wieder 
eine Plausibilitätsprüfung, da bei einer Matrizenmultipli¬ 
kation die Anzahl der Zeilen in der ersten Matrix mit der 
Anzahl der Spalten in der zweiten Matrix übereinstimmen 
muß, und analog auch die Anzahl der Zeilen in der zweiten 
Matrix mit der Anzahl der Spalten in der Ersten. Ist eine 
Matrizenmultiplikation mit den eingebenen Zeilen- und 
Spaltenzahlen nicht möglich, so bricht das Programm mit 
einer Fehlermeldung ab. Zeile 250 beinhaltet die Plau- 
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sibi1itätsprüfung für die Matrizenmultiplikation mit der¬ 
selben Matrix. Hier muß die Anzahl der Zeilen mit der An¬ 
zahl der Spalten übereinstimmen. 

Die Zeilen 1000 bis 1330 beinhalten das Programm zum Be¬ 
rechnen des Multiplikationsergebnisses und ab 2000 wird 
eine Matrix mit sich selbst multipliziert. 

Mit den im ersten Teil erhaltenen Variablen für Zeilen- 
und Spaltenlängen der diversen Matrizen werden in Zeile 
1000 im Rechner die beiden Matrizen dimensioniert. Dann 
wird die Farbe für die weitere Eingabe umgeschaltet. Die 
Zeilen 1020 bis 1070 dienen zur Eingabe der Matrizenwerte 
der ersten Matrix, wobei die Zeile und Spalte des jeweils 
einzugebenden Elementes am Rechner vorher durch einen 
PRINT-Befeh1 ausgegeben werden. Die eingebenen Daten wer¬ 
den sofort in die dimensionierte Matrix übertragen. Die 
Zeilen 1090 bis 1140 dienen analog zum Einlesen der Werte 
der zweiten Matrix. 

In Zeile 1150 wird die Matrix C(,) für die Ausgabedaten 
dimensioniert und in den Zeilen 1160 bis 1220 errechnet. 
Ab Zeile 1230 erfolgt die Ausgabe der Ergebnismatrix bis 
Zeile 1320. Bei der Berechnung sind drei F0R...NEXT- 
Schleifen erforderlich, da die Matrizenberechnung nach der 
allgemein bekannten Formel: 

N 

0(1,0) = X A (!' K ) * B(K,0) 

K= 1 

ausgeführt wird. Zwei Schleifen laufen jeweils durch die 
Zeilen bzw. Spalten und in der dritten Schleife werden die 
schon errechneten Werte aufsummiert. Das Ergebnis wird 
auch zeilen- und spaltengerecht ausgegeben. Dazu ist 
unter anderem der PRINT-Befehl in Zeile 1270 gedacht, der 
nach jeder Zeile ein Zeilenvorschub am Bildschirm bewirkt. 

Analog funktioniert das Multiplizieren zweier gleicher Ma¬ 
trizen. Eine Spa 1tenvariable ist eigentlich nicht mehr nö¬ 
tig, da die Anzahl der Zeilen und Spalten gleich sein muß 
(sogenannte quadratische Matrizen). Deshalb wurde für alle 
Rechenvorgänge die Variable ZI herangezogen. 
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MAMULT 100 - 2260 


Variablen: 


Name 

J 

Typ ! 

Bereich 

J 

Bedeutung 

I 

! 

H ! 

1. . . Z1/Z2 

! Laufvariable 

J 

J 

H ! 

1...S1/S2 

! Laufvariable 

K 

j 

H ! 

1. . .S1 


! Laufvariable 

S1 

i 

j 

G ! 

j 

Integer 


! Zahl der Spalten in 
! der ersten Matrix 

S2 

j 

j 

G ! 

j 

Integer 


! Zahl der Spalten in 
! der zweiten Matrix 

ZI 

j 

J 

G ! 

! 

Integer 


! Zahl der Zeilen in der 
! ersten Matrix 

Z2 

! 

! 

G ! 

! 

Integer 


! Zahl der Zeilen in der 
! zweiten Matrix 

Felder 

( Arrays) : 



Name 

j 

0imen. 

! Typ ! 

Bereich ! Bedeutung 

A 

J 

ZI, S1 

! G ! 

Dezimalzahlen ! Werte der ersten 


j 


i ; 


! Matrix 

B 

! 

Z2, S2 

! G ! 

Deziinalzahlen ! Werte der zwei- 


J 


! ! 


! ten Matrix 

C 

! 

Z1,S2/ 

! G ! 

Dezimalzahlen ! Werte der Ergeh- 


J 


; ! 


! nismatrix 


! 

ZI,ZI 

! ! 


! 

Unterprogranmaufrufe : 

in 

I 

nach 

Zweck 




keine! 


! nur GOTO's 
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! Verzweigungen 

nach 

außen 



! i n Ze ! 

nach 

! Bedingung 

! Bemerkung 


! 220 ! 

! ; 

END 

! S2 
! 

NE ZI 

! Matrizen nicht 
! zierbar 

mult ipl i- ! 

! 2 30 ! 

! ; 

END 

! Z2 
! 

NE S1 

! Matrizen nicht 
! zierbar 

mu11ip 1 i- ! 

! 250 ! 

END 

! ZI 

NE S1 

! Matrizen nicht 

multipl i- ! 

j j 

! ; 


! 

j 


! zierbar (keine 
! Matrix) 

quadratische! 


1.2 GEO - Geometrische Berechnungen 


Übungsziel: 

- Programmentwicklung 

- Zeilennummernvergabe 

- hierarchische Menütechnik 

- Farbausgabe 

- Durchführung einfacher mathematischer Berechnungen 

- Problemanalyse 


lö POKE532801 1 
20 P0KE53281,1 1 

100 FRINT'T W Q SIND BERECHNUNGEN DURCHZUFUEHREN ?H" 


1 10 

PR INTTRB < 10 


KREIS —> 

km 

1 20 

PRINTTflBC 10:' 

;" 

QURDRRT —> 

<aa 

1 30 

PR INTTRB<10) 


RFCHTECK —> 

RH 

1 40 

PR 1 NTTRB':: 10. 


DREIECK —> 

DH 

150 

PR I NTTRB •: 10 > 


NUERFEL —> 

WH 

i 68 

PR I NTTRB'; 1 0 .' 


QIJRDER —> 

RH 

1 70 

PRINTTRB <10 ■ 


PRISMA —> 

PH 

ISÜ 

PRINTTRB':: 10 > 

f " 

TETRAEDER —> 

TM 

190 

pr i nttrb 10 :> 

r " 

ZVLINDER —> 

za 

200 

PR I NTTRB C 10 ;■ 


KEGEL —> 

EH 

210 

PR INTTRB'; 10> 

; " 

KUGEL —> 

UH 


230 GE 1 RT 

24Ü tFA$-"K"THEN1000 
250 IrR$="Q"THEN1500 
26G 1 FFl¥- " R " THEN2000 
230 11-R*="D" THEN2500 
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£80 IFfl*="H"THEW300® 

290 IFRt="fl"TUEN3500 
300 IFfl*="P"THEN4000 
310 I Ffl$="T"THEN4500 
320 IFfl$="2"THEN5000 
330 I Ffl*--= " E " THEN5500 
340 I Ffl$= " IJ " THEN6000 
350 GOT0230 
1000 G 0 S U E900@ 

1010 PR I NT "itf?flDI US" ; TflB 15 > ; " yjMFANG ---> 1fiä" 

1020 PR INT" UPJMFflNG " ; TflB C 15 > .? " y?flO I US —> 2J3" 

1200 GETAT : IFfl*=""TUEN 1200 
1210 fl=VflLCfli) 

1220 I FFK 10EFD-2THEN1200 
1230 ON fl GOTO 10000 .r 10100 
1500 G 0 S U B9000 

1510 PRINT"ÜKflNTE" ;TflB< 15 >;"301 AG. ,UMF. ,F : LflE. —> IS" 
1520 PR INT"iäUMFAHG" 

1530 

1540 PRI NT"JJFLflECHE";TflB <15>;"30IAG. ,KANT 
1600 GE TAT : I FAT==" " THEN1600 
1610 fl-VflL. 

1620 IFFK10RA>4THEN1600 

1630 0N fl G 0 T0 15000,1520@ , r 15400 r 15600 
2000 G0 SUB9000 


2 010 P RI NT" j J< fl N TEN — > 1 " 

2020 PR I NT " ti< fl NT EH " ; TflB < 15 > ; " 3UMFFING —> 1 " 

2030 PRI NT"ü<AHTEN" TflB':: I 5> "iFLAECHE —>1 " 

2040 PR I NT " ÜIOTNTEFLAECHE " r TflBC 15> . —>2 

2050 PR I NT " üJKANTE , FLAECHE " ; TflB < 15 > " yii I fl00t —>2 

2060 PR I NT "ÜKflNTE.. FLAECHE " .rTflB< 15 > ; " yUMFANG —>2 

2070 PR I NT " U<FINTE , r OI AG. " ; TflB<: 15. KANTE —>3 

2030 PR INT" ÜKflNTEDI OG. ";TflB< —>3 

2090 PR I NT "ÜKflNTE , DI AG. " ? TflB < 15 > ; " FLAECHE —>3 

2100 PRINT"ÜKflNTE —>4 

2110 PRINT"ÜKflNTE, ■ —>4 

2120 PRI NT"ÜKflNTE,UMFANG ";TflB<15 > :"^FLAECHE —>4 


2200 CETB*:IFfl$=""THEN2200 
2210 fl=VflL <flf > 

2220 IFflC10Rfl>4 TH EN2200 

2230 ON Fl GOTO 20000,20200,20400,20600 
251313 GOSU B9O0Q 

2510 PR I NT "ÜKflNTEN" ;TflB< 15 > "y^LAECHE —> 1 MM " 

2520 PR I NT " ÜJKANTE , HOEHE " ; 

2600 GETflT : I Ffl*= " " THEN2600 
2610 fl=VflL<fl»> 

2620 11- fl <. 1UPFL21 HEIN2600 


II 
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26.30 OH R Du I O >.'i nj . 25,1 ;i m . 

3 11 00 0Ü S LI B 6 0 0 

3Ü1 0 PR I NT "dJi Hl ! Th H " THB' 15 • ; "»v'Ol T .HL l i ; I " 

302O pp I NT " jjJKRHTEH " ; THB • 15 :■ ; " »TBE: RF-!. RECHE: . 1 ' 

303O PR I NT " üiS : i TI ITEN ” : THB < :l. 5 > r " »3 1 HOOHhL II. - 3 .1 " 

3Ü40 PR 1 NT " jjjji.TBF RI I RECHE: " ; T HB ■ 1 5 '• r " »<RTTi ET I - -3 

3050 l-RTNT "UPBERF-L. RECHE" •• EAB- 15> : "»D ERGONAl I 
3060 PRINT "UüBERFLAECHE" - ■ 3 

3RTTT PP TH I "UDIAGUNALE" ? I HB • I 5 3 s ' ».AN I EM - 3 3" 

3080 PR I HT " UP IAGÜNALE " s THB • 1 '5 ; " »701. Uli EH .>3 « 

.030 PRINT"UPIAGÜNALE" TAB >■ I 5 • ? "yOBERFLAECHE .->3" 

320Q GE T H $ :IFHT-"" FHEH320R 
3210 A== VAL < HT ..' 


20 

i 

FFK 1E 

IRR 

3THEN3; 

■00 



3t i 

c 

N fl E 

iRT L 

30000 

30200 

:0400 


Ü0 

G 

OSUBS. 

■*000 





10 

F 

PI TI T ' 

Üf3 

KANTEN 

' ;TRB■ IST : ' . J 

■'OLUMEN — 3 1 " 

20 

F 

RI NT 

813 

1 Ri IT Ei l 

' r 1 RB 1 5 . ' r " 

3BERFL AECHE - 1 " 

30 

I- 

RI ITT 

IijJ > 

KANTEN 

' r TAB C 

5;" ;;.j 

11 AGONALE I " 

4M 

F : 

RI NT 

'UR 

KANTEN 

, DIAG. 

1 ;T HBv 

. 5T r"»JBLRFLHLT . 2" 

50 

1- 

RI NT 

1 iS2 

KANTEN 

, 131 AG. 

' ; T RB ■ 

15 ,:. ;"»3. KANTE ~-32" 

60 

F 

RI HT 

'ij2 

1. ANTEN 

,D.IAG. 

' ; TRB v 

15;. : " »/'OL UM EH .32" 

70 

F 

R .1. HT 

1 W2 

KANTEN 

. DBF L.. 

' ;TRB< 

IST : “»VOLUMEN 3 3" 

y0 

F 

RI NT 

' Wt7 

KANT EH 

, OBFi.. 

1 .: TRB' 

1. 5 :■ : " »3 I AGON ALE - -. 3 " 

90 

F 

RI FIT 

' 1.32 

KIRNTEN 

. OBFI.., 

' TAI: ■ 

15 3; "»3. KANTE ---3 3" 

0 0 

F 

RI NT 

' üß 

KANTEN 

,VOL." 

T AB < 1 

=:;. ;"»3. KANTE --34" 

10 

F 

RI NT 

' ui.. 

KANTEN 

, VEGL. " 

■ FAB 1 

»0 B E R F L Fl E C H E - -■ > 4 ' 1 

•20 

F 

RI NT 

' IÜ2: 

KANTEN 

,VÜI.. . " 

; TAB<15»;" »JIAGONALE —>4" 


3700 GE1 HT;IFH T-""THEH3700 

3719 A=VETi_ HT > 

3720 J. LFK 1ÜRA3 4THEH37S0 

3 730 Ol l H GETTO 35000,35200,35400,35600 
4000 G 0 SIJ Ei6 2. 890 
4010 GO TO6 100O 
450O GOSUB62000 
45.10 GOTO61000 


5000 GOSUB6200HT 
5010 GOT06100R 
f. 500 ROS 

5 510 G OT061000 
600ET G O S IJ1362000 

6 010 G 0 T 061000 
S339 END 

•3000 PP I NT " ZUGEGEBEN »GESUCHT " 

9010 prinT" ijj******* 

9020 RETURN 

10000 I NF'UT " ZEPAO I US " ,r R 
10010 U = 2*1T*R 
18020 I—ir#RT2 

10030 FR I NT " HH3UMFHHG s " ... U 
T 0040 PR 1 HT " HSEJI MH HE. T : " ... I 
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10 bi 5 0 G O T 1.3 610 @ 0 
10100 I NPIJT " 33JJMFANG " ; U 
10110 R=U/<2#fr> 

10120 D=U."'ir 

10130 PR I NT " SBn gflD I US : " , , R 
1014© PR INT" »amiJRCHMESSER : " ,D 
1015 0 G 0 T061000 
10200 INPIJT " rXil JMFRNG " 

10210 D=U/tr 

10220 PR I NT " MBTO URCHMESSER : " ,D 
10230 G O T 0 610 Ö 0 
1 0300 INPIJT "3JJ?R01LJS " ;R 
10310 I=ir*RT2 

10320 PRINT" Mü niNHflLT : " , I 
10330 G O T O 610 0 0 
1 5000 I NP LJ I " m iHNTENLRENGE " ; K 
15010 D=K*SQR<2> 

15020 U::=4*K 
15030 fl=KT2 

15040 PRINT" MCP IRGQNRLE:",0 
1 

15060 PR IN T " M wrT-LflEGHE s " , fl 
1507Gi GO T0 61000 
15200 INPUT " 3JJJMFANG " ;U 
15210 K=U/4 
15220 D=K#SQR<2) 

15230 fl=Kt'2 

15240 PR I NT " uffgn : flNTFNI flENGE ,.K 
15250 PR INT" ,5l?rri I AGON fl LE : " , D 

15260 PR I NT"SßEFLflECHE :",fl 

15270 G O T061000 
15400 INPIJT" ZEP IRGONRLE" ;D 
15410 K=D/SQR<2> 

15420 U=4*K 
15430 fl=KT2 

15440 PR I NT " BftCT - flNTENLflENGE : " . I< 

15450 PRINT"HKJJMFflNG : " ,L 

15460 PR I NT " MWT LflECUE : " , fl 

154 70 G 0 T O 610 0 0 

15600 INPUT" 33FLAECHE"?fl 

1561 u K=S L! E; '■ fl 

15620 U=4*K 

15630 D=K*SQR<2) 

15648 PR I NT " agil : flNTENLAENGE. : " , K 
15650 PR INT" a an UNFANG : " , U 

15660 PRINT" Wsrn IRGONflLE :",D 

15670 G0 T O61000 
20000 1 NPUT"UKRMTE fl";Kfl 

20020 0=SQRLKRT2+KBT2> 

20030 LJ=2*■: Kfl+KB > 
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20040 R=KR*KB 

20050 PRINT" MBTO IRGONRLE : ",D 

20060 PP:INT"HBJJMFRNG : " ,U 

20070 F'E I NT " HSFLRECHE : " , R 

200S0 GOT061000 

20200 INPUT "TTKRNTE R ";KR 

20210 INPUT"a^LRECHE F ";F 

20220 B=F,--'‘KR 

20230 0=SQR<KRT2+BT2 > 

20240 U=2#<Kfi+B> 

20250 PRI NT" aeO RNOERE KRNTE !",B 
20260 PR INT" HSIi1RGONRLE : " , D 

20270 PR I NT " SßJUMFRNG : " , U 

20280 G 0 T061000 
20400 INPUT"rZMRNTE R ";R 
20410 INPUT"fflllRGONRLE " ;D 
20420 B=SQR<DT2-Rt2> 

20430 U=2#<R+B> 

20440 Fl=R*B 

20450 PR I NT " SI5QRNDERE KRNTE : " ,B 

20460 PR I NT " HSUMFRNG : " IJ 

20470 PRINT"SISF r LRECHE ' s",R 

20430 GOT061000 

20600 INPUT "UiKRNTE R".:R 

20610 INPUT"SUMFRNG ";U 

20620 B=U/2-R 

20630 D=SQRCRT2+BT2 > 

20640 R=R*E: 

20650 F'RINT"ÄEDRHDERE KRNTE :".,B 
20660 PRI NT " HSITi I RGONRLE : " , D 

20665 PR I NT " SJfiJ-LRECHE : " ,.R 

20670 GOT061000 
25000 INPUT"33<RNTE R";KR 
25010 INPUT"B<RNTE B";KB 
25020 INPUT"JKRHTE C";KC 
25030 S=. 5* <: KR+KB+KC > 

25040 FL=8QR <. S* <S-KR >*<S-KB >* < S-KC > > 

25050 PRI NT" WgfyLRECHF :",FL 

25060 G 0 T061000 

25200 INPUT"3JJ<flNTE R".;KR 

25210 INPIJT " SHOEHE R " ; HR 

25220 FL=KR*HR/2 

25230 PRINT"H 5 r 3 r LRECHE : " FL 

25240 GO T O 6100O 

30000 INPIJT " ^3H::RNTEN " .? KR 

30010 V=KR T 3 

30020 D=K R * S Q R < 3 > 

30030 0=6#KRT2 

30040 PR I NT " MiTT JOLLIMEN : " , , V 
30050 PR I NT " HSEi I RGONRLE : " .. D 
38060 PR INT"ÜWUBERFLRECHE :",O 
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J 0070 GOTue. 100bl 

30200 I HF'IJT"rmOBERFLRECHE" 0 

3021O K R=S Q R < 0,6 > 

30220 D=KA*SQR t3> 

30230 V=6*KAT2 

3024O PR I NT"2ISU< ANTEN : " , , KR 

30250 FR I NT " HSPI R GON RLE : " .. D 

30260 PR I NT " MW v'OLIJMEN : " , V 

30270 GOT06100O 

30400 IHPIJT " nm I RGONRLE " ; D 

30410 KR=D,-'SQR C 3 > 

30420 O=K R 6 * K R T 2 

30430 V=6*KRf2 

30440 PRINT" MST -RNTEN : »,,KR 

30450 PR INT" MgEiBEEFL RECHE : " , O 

30460 PR I NT " SMv'ÜLUMEN : " , , V 

30470 GÜT061000 

35000 INPUT"."3il=IRNTE R" ;KR 

35010 INPUT"KANTE Ei" ;KB 

35020 INPUT"KRNTE C";KC 

35030 V=KA*KB*KC 

35040 D=SQR<KAT2+KBT2+KCT2 > 

35050 0=2*<KR*KEi+KR*KC+KB*KC > 

35060 F'R I NT " MürT v'OLLIMEN : " , , V 
35070 PRINT" M8D IRGONRLE :",D 
350S0 F'R I NT " BlBlJEiERP : LREC:HE : " , 0 
3509Gi G 0 T061000 

35200 REM ****** IJEEilJNG FÜR DEN LESER ****** 
35210 REM FORMEL FIJER 3. KRNTE : 

35220 KC = DT2 - KRT2 - KBt2 

35400 REM ****** IJEBUNG FÜR DEN LESER ****** 
35410 REM FORMEL FIJER 3. KRNTE : 

35420 REM KC = < 0/2 - KR*KB > / CR+B> 

35600 REM ****** IJEBUNG FÜR DEN LESER ****** 
35610 REM FORMEL FIJER 3. KRNTE : 

35620 REM KC = V / < KR * KC > 

37000 G 0 S U B 62000 : G 0 T 0 61 @ 0 0 
40000 REM FORMEL FIJER PRISMA 
40010 REM V = G * H 

40020 REM 0 = 2 * G + M 

45000 REM FORMEL FIJER TETRAEDER 
45010 REM V = 1/12 * RT3 * SQR<2> 

45020 REM H = A/3 * SQR 6 > 

45030 REM 0 = RT2 * SQR<3> 

50000 REM FORMEL FIJER 2VTVDER 
50O10 REM V = G * H 
55000 REM FORMEL FIJER KEGEL 
55010 REM V = 1/3 * G * H 
6000O REM FORMEL FUER KUGEL 
60010 REM V = 4/3 * fr * RT3 

60020 REM 0 = 4 * it * RT2 
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61000 PR 1 NT" SISJ^MBMBMSENE I TER 7 —> T'flSTE DRUECKEN 
6 .1 010 ÜETRT : I Fl-I$= " " THEN6101Ö 
61020 G 0 T 010 0 

62000 PPINT"IXBITTE VERSUCHEN SIE SICH SELBST 
62010 PF:INT"ÄföllN DER F'ROGRFlMMIERUNG NM! 

62020 PR INT " 2MüäF0RMELN IN REN—FINNE ISIJNGEN 
62030 PP TIIT " WM S il N DEIN VORGESEHENEN ZEILEN 
62040 RETURN 

63000 SFlVE "CS :GEONETRIE" 33 
63010 OPEN 1,8, I5 
630 • ’0 INPUT# 1 , H , PT , C .. D 
Ei. 3U3U PRINTH.. BT... C , 0 
63040 END 


Ähnlich wie in dem Programm zur Berechnung von Matrizen 
(MAMULT) wollen wir hier mathematische Berechnungen durch¬ 
führen. Um nicht für jede Berechnung ein eigenes Programm 
schreiben zu müssen, werden diverse Berechnungen in einem 
Programm zusammengefaßt, dem ein Menü vorangestellt wird. 
Wir wollen mathematische Berechnungen an verschiedenen 
geometrischen Formen vornehmen. Dazu wollen wir erst ein¬ 
mal festlegen, an welchen Formen wir Berechnungen durch¬ 
führen wollen. Für das aufgezeigte Programm haben wir 
fes tge legt: 

- Kreis 

- Quadrat 

- Rechteck 

- Würfel 

- Dreieck 

- Quader 

- Prisma 

- Tetraeter 

- Zylinder 

- Kegel 

- Kugel 

Ob Sie das Programm nun Top-Down oder Bottom-Up entwickeln 
(vgl. auch Basic ohne Probleme Band 3 - Programmentwick¬ 

lung und Datenverwaltung), bleibt Ihnen überlassen. Wir 
wollen hier den Fall der Top-Down-Programmierung darstel¬ 
len, wo das Programm vom Gerüst bis in die Details immer 
weiter verfeinert wird. 

Dazu brauchen wir zunächst einmal das Menü, was zu den Be¬ 
rechnungen der einzelnen geometrischen Figuren verzweigen 
wird. Dieses Menü zeigt die Zeilen 100 bis 350. 
Vorangestellt sind lediglich noch zwei Befehle um dem Com- 
modore 64 als Rahmen- und Hintergrundfarbe jeweils dunkel- 
grau zu geben, damit andere Farben besser zur Geltung kom- 
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Grobes Ablaufpogramm »Geometrie«. Die Zahlen in Klammern geben den Beginn 
des jeweiligen Programmstückes an, die Zeichen vor den Kästen den anzuwäh¬ 
lenden Menüpunkt. 
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r 


i 


— Als Übung vom Leser zu programmieren 

i_i 

O Menü-Ausgabepunkt 


r' 


p 

j i _ 


Prisma 
I (4000) 

I___ 


! j Tetraeder 


i_, "1 _ e 1 _ 


T-rr- 

I© 

r- 4 —. 

| (40000) | 


(4500) | 

J L -r-H 


n r* 

Zylinder 1 i Kegel i 
I (5000) I 1 (5500) I 

L _,_I I___I 






i © 

| (45000) i 


“I 

j© 1 

_J_ 


"1" 


I Kugel | 
(6000) l 

h-r-J 


II (40200) I 1 


1 r ‘ 

I | (40400) I 


I© j (50000) I I 

‘rrU 

I | (45200) | 1 1 

! l t j 


(50200) 

l -t- j 


'© I 

l|© j ^ j I 

(55000) I I 

T--^i 

, | (55200) 1 

1 1 1 


I© 

r -Ul 

I (60000) I I 


M i 


| (60200) | 

11-,—I 


Bestimmung der Form 


Parameter¬ 

menüs 


Berechnungen 

mit 

Ausgabe 
(gegebene 
Parameter 
im Kasten) 




30 


Kapitel 1.2 


men. Nehmen Sie diese Poke-Befehle zunächst einmal als ge¬ 
geben hin. 

Das Menü ist unterteilt in die Bildschirmanzeige (Zeile 
100 bis 210) und den Verzweigungsteil (Zeile 230 bis 350), 
wobei in Zeile 230 ein Zeichen von der Tastatur eingelesen 
wird und ab Zeile 240 in Abhängikeit des eingelesenen Zei¬ 
chens verzweigt wird. Ist ein Zeichen eingegeben worden, 
welches nicht zum Programmverteiler gehört, so wird ein 
weiteres Zeichen von der Tastatur eingelesen. 

Der Übersichtlichkeit halber wollen wir die geometrischen 
Berechnungen jeweils bei Zeilennummern ab 1000 anfangen 
lassen, wobei für jede weitere geometrische Figur die er¬ 
ste Zeile um 500 höher liegen soll als bei der vorherge¬ 
henden Figur. Dies gestattet uns, wie wir später sehen 
werden, den gesamten möglichen Zeilenbereich in Basic aus¬ 
zunutzen. Die Vergabe der Zeilennummern ist möglichst 
schon im voraus festzulegen, um nicht später nach dem Mot¬ 
to verfahren zu müssen 'machen wir halt ein GOTO in einen 
neuen Speicherbereich', wenn der Zeilenbereich, der vorge¬ 
sehen wurde, erschöpft ist. Sogenannte 'organisch gewach¬ 
sene' Programme stellen erhebliche Probleme bei der Pro¬ 
grammpflege und Wartung dar. 

Bei den im Hauptmenü angesprungenen Zeilennummern soll je¬ 
weils ein Untermenü stehen, mit dem abgefragt werden soll, 
welche Parameter der Figur gegeben sind und welche berech¬ 
net werden sollen. Aus mnemotechnischen Gründen sollen die 
Menüs ab der Zeilennummer stehen, die im Hauptmenü angege¬ 
ben ist, und die eigentlichen Berechnungen jeweils in 
einer Zeilennummer beginnen, die eine 0 mehr hat als die 
erste Zeile des Untermenüs. So steht z.B. das Untermenü 
zum Abfragen der Parameter beim Kreis ab Zeile 1000 und 
die Berechnungen ab Zeile 10000. Desgleichen beginnt das 
Untermenü zu den Berechnungen am Quadrat in Zeile 1500 und 
die Berechnungen selbst in 15000. Somit ist dann der Spei¬ 
cherbereich bis Zeile 60000 ff. ausgelastet. 

Um Speicherplatz und Tipp-Arbeit zu sparen, wollen wir die 
Überschrift für die gegebenen und gesuchten Parameter in 
ein Unterprogramm zusammenfassen, das vor jedem Untermenü 
aufgerufen wird (Zeilen ab 9000). 

Die Untermenüs sind alle analog aufgebaut. Jedem Hauptmenü 
werden zunächst die Menüpunkte am Bildschirm ausgegeben 
und anschließend über die Abfrage eines Zeichens von der 
Tastatur in die verschiedenen Berechnungen verzweigt. Ein 
Unterschied zum Haupmenü besteht allerdings: Im Hauptmenü 
wird nach einzelnen Zeichen (Buchstaben) verzweigt. In den 
Untermenüs haben wir ein anderes Verfahren verwendet. Die 
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Menüpunkte werden über Ziffern angewählt, sodaß der Befehl 
'ON A GOTO' verwendet werden kann. Dadurch wird Zeilen- 
und Speicherplatz gespart. Die Zeilen analog zu Zeile 1220 
beinhalten jeweils eine Plausibilitätsprüfung. Dadurch 
wird die Tastatur softwaremäßig für alle anderen Zeichen, 
als die im Menü vorgegebenen, gesperrt. 

Bei den eigentlichen Berechnungen (ab Zeile 10000) ge¬ 
schieht im Prinzip das Gleiche wie in dem Programm MAMULT. 
Zunächst werden die Daten, die Grundlage der Berechnung 
sind, am Bildschirm eingelesen, anschließend die Berech¬ 
nung durchgeführt, das Ergebnis ausgedruckt, und - anstatt 
das Programm zu beenden - ein Programmstück aufgerufen, 
was auf das Drücken irgendeiner Taste wartet. Dadurch wer¬ 
den die Berechnungen solange am Bildschirm angezeigt, wie 
es der Benutzer will. Durch Drücken einer beliebigen Taste 
wird wieder zum Hauptmenü übergegangen. 

Im Prinzip sind hier viele kleine Programme zu einem gro¬ 
ßen zusammengefasst. Die Berechnungen wurden absichtlich 
in dieser einfachen Form gehalten, um über das Programm 
trotz der Vielfalt der 'kleinen Programme' einen Überblick 
zu erhalten. An diesem Beispiel wird leicht deutlich, daß 
auch geschachtelte Menüs nicht schwieriger zu handhaben 
sind als einfache Menüs, man muß sich vorher nur über die 
Verteilung der Zeilennummern Gedanken machen. 


Änderungen und Ergänzungen 

Wie auf dem nebenstehenden Flußdiagramm schon durch die 
gestrichelten Linien deutlich gemacht und im Programm- 
listing an den REM-Anwe isungen ersichtlich, sollen Sie 
selbst einige von diesen Berechnungen und Untermenüs ein¬ 
tippen. Gehen Sie aber dabei bitte sehr sorgfältig vor. 
Laufen die Programmstücke, die Sie selbst eingetippt haben 
nicht auf Anhieb, so gehen Sie logisch bei der Fehlersuche 
vor. Die am leichtesten zu erkennenden Fehler' sind dir; 
’syntax error‘-Feh 1 er, weil der Computer sie anzeigt. Ach¬ 
ten Sie dann auf die richtige Schreibweise von Basic- 
Schlüsselwörtern, gleiche Anzahl von geöffneten und ge¬ 
schlossenen Klammern und Variablennamen, die keine Schlüs¬ 
selwörter sein dürfen. 

Die Zeichen, die in Reverse im Listing dargestellt sind, 
sind Steuerzeichen für den Cursor und die Farbgebung. 
Näheres zu den Farben ist aus der Tabelle im Anhang er¬ 
sichtlich. Vom Programm vorgewählt sind folgende Farben: 

weiß - für das Hauptmenü 

grün - für die gegebenen Parameter 
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hellrot - für die gesuchten Parameter (das normale 
rot ist auf dem Hintergrund nicht so gut 
lesbar) 

gelb - für die eingegebenen Daten 

blau - für die ausgegebenen Daten 

Zum Beispiel ab Zeile 2010 befindet sich hinter dem 
des PRINT-ßefehls ein Reverse-Pfei1 nach oben, der die 
Ausgabefarbe auf 'grün’ umschaltet und vor dem 2. Text ein 
Reverse-Eckze ichen, das Ausgabe auf hellrot umschaltet. 
Diese Farben müssen in jeder Zeile umgeschaltet werden. 

Bei der Ausgabe von Daten wurde die Farbumschaltung je 
Zeile zum Teil auch noch durchgeführt (vergl. z.B. Zeile 
15040 bis 15060) was im Prinzip jedoch nicht nötig ist. 
Vergleichen Sie die Ausgabe bei den Berechnungen am Qua¬ 
drat und die Ausgabe bei den Berechnungen am Rechteck, wo 
bei der Ausgabe nur noch die erste Ausgabezeile einen 
Farb-Scha ltbefehl bekommen hat. 

Versuchen Sie, nicht nur die fehlenden Programmstücke zu 
ergänzen, sondern auch das Hauptmenü weiter auszubauen mit 
weiteren geometrischen Formen. Sollte das Hauptmenü größer 
werden als der Bildschirm Zeilen hat, so lassen Sie ein¬ 
fach das Reverse q am Ende der Ausgabezeile in dem Haupt¬ 
menü (Zeile 110 bis 210) weg. Dadurch werden die einzelnen 
Menüpunkte dichter aneinander gerückt. Eine Übersicht der 
Cursorsteuerzeichen befindet sich ebenfalls im Anhang. 


Sonstiges 

Der Befehl TAB(15) bzw. TAB(IO) setzt den Cursor in die 
Spalte 15 bzw. 10 der aktuellen Zeile. Sie sparen sich da¬ 
durch die Ausgabe von Blanks (Leerzeichen) oder 'Cursor 
rechts' und somit Speicherplatz. 

Ab Zeile 63000 steht ein kurzes Programm das für Floppy- 
Benutzer gedacht ist. Mit ihm wird die aktuelle Programm¬ 
version auf Diskette gespeichert, wobei der Klammeraffe 
und der Doppelpunkt vor dem Dateinamen bedeuten, daß eine 
vorhergehende Datei gleichen Namens zuerst gelöscht werden 
soll. Die Zeilen 63010 bis 63030 beinhalten das öffnen 
einer Datei mit Fehlerkanal (Datei 1, für Gerät Nr. 8, mit 
Fehlerkanal 15). Dann wird die von der Floppy bereitge¬ 
stellte Fehlermeldung in die Variablen a , b$,c,d übernommen 
und anschließend ausgedruckt. 
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1-- 

! GEO 

i 



! 

100 - 62040 ! 

! 

j ! 

! Variablen: ! 

; ! 

i i 

! Name 

1 

! 

Typ ! 

Bereich 

! Bedeutung ! 

mm 


H ! 

0. . . 10 

! ggf. Zahlwert von A$ ! 

! A$ 

! 


H ! 

! 

1 Zeichen 

! Einlesen eines Zei- ! 

! chens von der Tastatur! 



G ! 

Dezima1 zahl 

! Durchmesser/Diagonale ! 

! FL 


G ! 

Dezimalzah1 

! FlÄche ! 

! HA 


G ! 

Dezimal zahl 

! Höhe zur Kante A ! 



G ! 

Dezimal zahl 

! Kreisinhalt ! 



G ! 

Dezimalzahl 

! KantenlÄnge ! 

! KA 


G ! 

Dezima1zah 1 

! Kante A ! 

! KB 


G ! 

Dezimalzahl 

! Kante B ! 

! KC 


G ! 

Dezimalzah 1 

! Kante C ! 



G ! 

Dezima1 zahl 

! OberflÄche ! 



G ! 

Dezima1 zahl 

(Radius ! 



G ! 

Dezimalzahl 

! Umfang ! 



G ! 

Dezima 1 zah 1 

! Volumen ! 

! Felder 

1 

(Array 

s): 


! Name 

1 

1 

Dirnen. 

! Typ ! Bereich 

! Bedeutung ! 

i 


keine! 


Unterprogrammaufrufe : 


1 n 


! nach ! Zweck 


1000 
1500 
2 000 
2500 
3 000 
3500 
4000 
4500 
5000 


9000 

9000 

9000 

9000 

9000 

9000 

62000 

62000 

62000 


Bildschirmüberschrift 
Bildschirmüberschrift 
Bi ldschirmüberschrift 
Bi ldschirmüberschrift 
Bi ldschirmüberschrift 
Bildschirmüberschrift 

Bi ldschirmmeldung 'Selbstprogrammierung' 
Bildschirmmeldung 'Selbstprogrammierung' 
Bildschirmmeldung 'Selbstprogrammierung' 
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5500 ! 
6000 ! 

62000 ! 
62000 ! 

Bildschirmmeldung 'Selbstprogrammierung'! 
Bi ldschirrnineldung ' Selbstprogrammierung' ! 
der Rest wird mit 'GOTO' verzweigt ! 

Verzweigungen 

nach au§en : ! 

i n 

! nach 

! Bedingung ! Bemerkung ! 

keine!! ! ! 


1.3 STATISTIK - Weitere mathematische Berechnungen 


übungsziel: 

- statistische Berechnungen 

- Verwendung von Hilfsvariablen 

- mnemotechnische Zeilennummernvergabe 

- Menüs (geschachtelt) 

- kombinierter INPUT mit vorherigem PRINT-Befehl 

- Duplizieren ähnlicher Zeilen 


10 PÜKE53231,11 
20 POKE53290 ,■ 1 1 
30 DI MH <255> 

100 PR INT" SQg&ägflH iiMÜ ltMUlU tll - MITTELWERT / VRRIRM2 
110 PR INT" »Hll tlHH < STICHPROBE > 

120 PR IHT " fflilWKttJUlWC - KOMBI MOTORIK 
130 PR I NT " aUUÜUUAfelftP - BI NOM I NfÜLKOEFF 121 ENT 
140 F : ' RIN T'' WH B ll »i fe Ha » » »W 8 4 - BI NOM I MAL VERTE I LU MG 
300 GETRT 

3.10 I FR$=" " THE:14300 
320 fl=VRL < 1-14 } 

330 014FH G07 01000,2000,3000 r 4000 

1000 I NPUT " n«B»» 3ROESSE DER STICHPROBE" jN 

1010 FÜR1 = 1 TOM 

1020 PR II IT "WERT" -1 , 

1030 INPUTN (. I > 

1040 HEXT 
1050 X=0 
1060 FÜR1 = 1 TON 
I078 X=X+H<I} 

1080 HEXT 
1030 XQ=X/N 
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1100 PR I NT "aSHSISDaMltr 11 TTELWERT : " ; XQ 
1110 Hl=0 
1120 FOR1 = 1 TON 
1 130 H 1 =H 1 + <: N <: I -XQ :> 12 
1140 HEXT 

1 150 SQ= 1< N-1 > :+H 1 

1160 PR I NT " MiaBMiüliliHHH v'OF: 1 RH 2! : ";SQ 

1170 PR I NT " BMajggt.llll.lHE I TER ? — > TASTE 

1180 GETAT 

1190 IFfl*=""THEN1180 
1200 GOTO100 

2O00 PRIHT " .T Mtfla S B U MiH H 1 - PERHüTATI0HEH FflKUL.TflET 

2010 PRIHT" W>»»I2 - KOMBINATIONEN OHNE WIEDERHOLUNG 
2020 PRINT" »H»K 3 - KOMBINATIONEN MIT WIEDERHOLUNG 
2030 GE!TAT 

2040 IFfl$=""THEN2030 
2050 fl=:VFiL <AT> 

2060 O N fl G O T021002200,2600 

2100 INPUT'TJN" ;N 

2110 FA=1 

2120 FOR1 = 1 TON 

2130 FA=Ffl*I 

2140 HEXT 

2150 PR I NT " □agBäB i atlitMt .M ! = "?FA 

2160 PRINT" ilüISlS BI < = ANZAHL. DER PERMUTFITIONEN > 

2170 GOTO10000 

2200 i h p i j ■t " 3saaiaaoi*.n 1 ' ■ n 

2210 INF-IJT" WSMSKH1B.HK' 1 r K 

2220 PRINT" M<Dsnami»1t -11T BERUECKSICHTIGUNO DER ANORDNUNG 

2230 GE'I fl* <J/N> 

2240 IFAT="N"THEH2:2 7 0 

2250 IFAT="J"THEN2440 

2260 G 0 T02230 

2270 H .1 =N 

2280 G O S U B1 10 0 0 

2290 H2=Ffl 

2300 Hl--H-K 

2 310 G Ü SIJ B110 0 0 
2320 H3=Ffl 
2330 H1=K 

2340 G 0 S U131 10 0 0 

2350 H4=FA 

2368 H2=H2X <H4*H3.» 

2370 PRINT"aSHSHHANZAHL DER KOMBINATIONEN VON " 

2380 PRINTH;" ELEMENTEN ";K;"-TER ORDNUNG"; 

2390 PR INT"OHNE" 

24O0 PRINT"BERUECKSICHTIGUNG DER ANORDNUNG s " 

2410 PRINT 

2420 PRIHT";H2 
2430 GOTO10000 
2440 H1=N 
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450 

UUSIJBl 10 0 0 





460 

H2-FR 





470 

H1=N—K 





480 

GGSUB11000 





490 

H2=H2/FR 





500 

F'R I NT " TMpIbMUFiN Z R H L DER 

KOMB I 

NRTIONEN '■ 

;'ON " 

510 

F'RINTN;" ELEMENTEN 

'; K; 

"-TEF 

ORDNUNG" 


520 

F'R INT "MIT" 





530 

F'R INT" BERUECKSI GUT I 

JUNG 

DER 

RNORDNUNG 

n II 

540 

PRINT 





550 

F'R I NT " .ajtMIUHIMIilEJ" 

:H2 




560 

GOT010000 





600 

I NF'IJT " riMMl!!»lMliHi|»i»H " 

;N 




610 

i NpijT - aiBMgamjMü-:"; k 




620 

F'R I NT" MBMnOammM'11T 

BEF 

IJ E CI CE 

ICHTIGUNG 

DER EINORDNUNG 

630 

GETRT 




C J/N > 

640 

IFRT="N"THEN2670 





650 

I FRf="J"THEN2850 





6 6 0 

GOTO2630 





670 

N=N+K—1 





6* 80 

H1 =N 





690 

GOSUB11000 





700 

H2=FR 





710 

H1=N~K 





720 

GOSUB11O00 





730 

H3=FR 





740 

H1 =K 





750 

GOSUB11000 





760 

H4=FR 





770 

H2=H2 / < 114*1 (3 > 





780 

F'R I NT " ZMbMbMRNZRHL DER 

K OM ES I 

NRTIONEN ' 

■'ON " 

790 

F'RINTN; " ELEMENTEN 

'K ; 

"-TEF 

ORDNUNG" 


300 

PRINT"OHNE" 





810 

P RIN T " B E R U E C KSIC H T11 

JUNG 

DER 

RNORDNIJNG 

■ 11 

820 

PRINT 





830 

F'R: I NT " jaiMllJIMlMM!]" 

;H2 




840 

GOTO100O0 





850 

H8=NtK 





860 

PR I NT " IlBMBMflFlNZRHL DER 

KOMB I 

NRTIONEN 1 

•’ÜN " 

87© 

F'RINTN; " ELEMENTEN 

1 ; K ; 

" —TEF 

ORDNUNG" 

? 

880 

F'R I NT " MIT " 





890 

F'R I NT " BERUECKS I GUT I 

JUNG 

DER 

RNORDNUHG 

u II 

900 

F'R INT" 

: H3 




910 

GOTO10000 





000 

I NPIJT " > Bi > > IN " 

; N 




0 1 0 

I NF'IJT " ;n:[t|Mi!Wi»»Mit<" ; K 




020 

H1 =N 





030 

GOSUB11000 





040 

IH2--FR 





050 

H1=N~K 





060 

GOSUB11000 
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3078 H3=Ffi 

3080 H1=K 

3090 G O S U Ej 110 0 0 

3100 H4=F'H 

3110 H2=H2/<H4*H3> 

3120 PR I NT" JBMBMBE I NOM INRLKOEFF121 EINT " ; N.? " LIEBER " K " s 

3130 PR I NT : PR I NT : PR II IT 

3140 PRINT" ,:H2 

3 150 G i J T010000 

4000 INPUT "3-1" ;N 

4010 INPUT" SP "fP 

4020 Q—1 —P 

4030 I NPUT " Bis " ,*X 

4040 H1=N 

4050 GOSUB11030 

4060 H2=FR 

4070 H1=H~X 

4080 GOSUB11000 

4090 H3=Ffl 

4100 H1=K 

41 10 GOSIJB1 1000 

4120 H4=FR 

4130 H2=H2/<H4+H3> 

4140 F=H2*PTX*QT<N—X> 

4150 PR I NT " FMeMbIB» I NOM INRLVERTEI LU HG : " 

4 1 60 pr i nt" aaa a n ;f 

4170 PR INT" SMST‘11T TEL WERT : "jN*P 
4180 PR I NT " MBÜBT v'RR I RNZ : ";N#P#G 

419 0 G 0 T Ü10000 

10000 F'R 1 NT 11 HSßMamitOJ'JE I TER ? —> TRSTE 

10010 GETflT 

10020 I Ffl-T= " " THEIN 10010 

10030 G Ü T 010 0 

11000 FFl= 1 

11010 FÜR I = 1TOH1 

11020 FR=Fh*I 

11030 NEXT 

11040 RETURN 

60000 SRVE"@:STRTIST IK'' ,8 


Wie auch in den beiden vorhergehenden Kapiteln wollen wir 
uns hier noch den mathematischen Berechnungen widmen. Die 
Menü-Technik dürfte hinlänglich bekannt sein und soll hier 
nicht näher erläutert werden. Das vorliegende Programm 
kann nach belieben ausgebaut werden. In die bisherige Aus¬ 
baustufe wurden aufgenommen: 
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1 - Mittelwert / Varianz einer Stichprobe 

2 - Kombinatorik 

3 - Binomina lkoefFizient 

4 - Binomina 1 vertei 1 ung 

Poissonvertei lung und Norma1verteilung sowie Regressions¬ 
geraden und Hypothesentest sowie Korrelation können dem 
Leser als weiteren Übungsstoff dienen. 


Mittelwert / Varianz einer Stichprobe 

In den Zeilen 1000 bis 1200 wird der Mittelwert einer 
Stichprobe und ihre Varianz errechnet. Dazu muß zuerst die 
Größe der Stichprobe erfaßt werden (N) und anschließend 
die Stichprobenwerte. Dies geschieht indem zunächst am 
Bildschirm ausgegeben wird 'WERT I' und dann der Wert so¬ 
fort in das Feld N() übernommen wird. Sicherlich ist es 
auch möglich, bei einem INPUT-Befehl (siehe Zeile 1000) 
einen Text miteinzugeben, jedoch läßt sich auf diese Art 
und Weise keine Variable einbauen. Es wurde deshalb der 
Umweg über den PRINT-Befehl gewählt, wobei das hinter 

'WERT' von Bedeutung ist, sodaß die Anzeige der Nummer des 
Wertes sofort dahinter erscheint. Durch das hinter 

dem 'I‘ wird der eigentliche INPUT etwas von der Bild¬ 
schirmausgabe abgesetzt, erscheint aber noch in der glei¬ 
chen Zeile. 

Anschließend wird die Hilfsvariable X auf 0 gesetzt und in 
ihr werden alle Werte des Feldes N() aufsummiert. Bekannt¬ 
lich ist der Mittelwert einer Stichprobe gleich dem arith¬ 
metischen Durchschnitt, d.h. die Summe aller Werte wird 
durch die Anzahl aller Werte dividiert. Dieses Ergebnis 
wird der Variablen XQ zugeordnet und anschließend in Zeile 
1100 ausgegeben. 

Die Varianz einer Stichprobe errechnet sich schon etwas 
komplizierter. Hier muß die Formel 

2 1 n 2 

S = - * (x - x) 

n - 1 i=l j 

angewendet werden, wobei ~x der oben errechnete Mittelwert 
ist. Wir sehen also, daß wir eine weitere Summe bilden 
müssen, und ziehen dazu die Variable Hl ( Hilfsvariable 1) 
heran, indem wir zunächst die Summe aus der quadrierten 
Differenz bilden. Die xj sind in unserem Fall in dem Feld 
N() abgespeichert. Anschließend führen wir noch die Divi¬ 
sion durch (n-1) durch und erhalten somit in der Variablen 
SQ die Varianz. 
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Die restlichen Zeilen dienen nur der Erhaltung der Anzeige 
am Bildschirm bis eine Taste gedrückt wird. 


Kombinator ik. 

Die Kombinatorik findet auch im alltäglichen Leben ihren 
Anwendungsbereich. Zum Beispiel jeder Lottospieler hat 
mehr oder weniger mit ihr zu tun, da die Errechnung der 
Anzahl von Gewinnmöglichkeiten den Gesetzen der Kombinato¬ 
rik unterliegt. 


Permutation / Fakultät 

Nachdem in den Zeilen 2000 bis 2060 das Untermenü für die 
Kombinatorik durchlaufen wurde, beginnt in Zeile 2100 das 
Errechnen der Permutation bzw. der Fakultät. Beide Aussa¬ 
gen stellen das gleiche Ergebnis dar. Die Anzahl der Per¬ 
mutation N stellt die Möglichkeiten dar, N verschiedene 
Elemente so oft anzuordnen, daß kein Element doppelt auf¬ 
taucht z.B. kann man mit den neun Ziffern 1,2,3,....,9 
9! = 362880 neunstellige Zahlen bilden. 

Der Begriff Fakultät (in der Mathematik dargestellt durch 
ein '!') ist definiert als die fortgesetzte Multiplikation 
aller Zahlen bis zu dem angegebenen N. Beispiel: 

1 ! = 1 

2 ! = 1*2 = 2 
3! = 1*2*3 = 6 
4! = 1*2*3*4 = 24 
u sw. 

Im Programmstück wird zunächst der Basiswert der Fakultät 
(N) eingegeben. Anschließend wird die Hilfsvariable FA mit 
'1' vorbesetzt, da sie von Hause aus 0 wäre und die Multi¬ 
plikation mit 0 aber zu keinem befriedigendem Ergebnis 
führt. Dann wird in einer Schleife für alle N iterativ je¬ 
weils der nächste Wert mit dem bisherigen Ergebnis multi¬ 
pliziert. Dann wird noch das Ergebnis ausgedruckt und zu 
einem Programmstück gesprungen, was wieder auf das Drücken 
irgendeiner Taste wartet. 


Kombination ohne Wiederholung 

Die Anzahl der Kombinationen ohne Wiederholung ist mathe¬ 
matisch definiert als 
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k ( n ) n! 

C = ( ) = - 

n (k) (n — k) ! k! 

Wir sehen, daß auch hier wieder der Begriff Fakultät er¬ 
scheint und haben das Programmstück aus den Zeilen 2100 
bis 2140 nochmal als Unterprogramm in die Zeilen 11000 bis 
11040 dupliziert. Bei den Kombinationen ohne Wiederholung 
kann man die Anordnung berücksichtigen oder nicht, dies 
wird in den Zeilen 2220 bis 2260 abgefragt. Zunächst er¬ 
rechnet sich in den Zeilen 2270 bis 2430 die Anzahl der 
Kombination ohne Wiederholung und ohne Berücksichtigung 
der Anordnung in dem zunächst einige Zwischenrechnungen 
durchgeführt werden. 

Zuerst wird in der Variablen H2 das Ergebnis von N! abge¬ 
legt, anschließend in der Variablen H3 das Ergebnis von 
(N — K) ! und in der Variablen H4 das Ergebnis von K!. Dann 
wird in der Variablen H2 das endgültige Ergebnis in Zeile 
2360 errechnet und anschließend ausgegeben. 

Die Anzahl der Kombinationen ohne Wiederholung wird auch 
als Binominalkoiffizient bezeichnet. Bei den Kombinationen 
ohne Wiederholung aber mit Berücksichtigung der Anordnung 
entfällt im Nenner lediglich der Term K!, sodaß nach Be¬ 
rechnung von N! und (N — K)! bereits der entsprechende Wert 
in Zeile 2490 an die Variable H2 zugewiesen werden kann, 
anschließend erfolgt nur noch die Bildschirmausgabe. 


Kombination mit Wiederholung 

Die Vorgehensweise bei der Errechnung der Kombination mit 
Wiederholung mit und ohne Berücksichtigung der Anordnung 
mag sich der Leser anhand der Formel 

wk (n + k-1) 

C = ( ) 

n ( k ) (lies n+k-1 über k) 

und des Programml istings selber verdeutlichen. 


Binominalkoeffizient 

Wie bereits erwähnt, entspricht der Binominalkoeffizient 
der Anzahl der Kombinationen ohne Wiederholung. Dieses 
Programmstück wurde nochmals ab Zeile 3000 bis Zeile 3150 
angefügt, um eine Besonderheit der Programmed itierung zu 
verdeutlichen. Listen Sie die Zeilen 2200 bis 2430 auf dem 
Bildschirm und ersetzen Sie bei den benötigten Zeilen, die 
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für die Erfassung der Daten vom Bildschirm und die Berech¬ 
nung wichtig sind (2220, 2210 und 2270 bis 2360), die Zei¬ 
lennummern jeweils durch Zeilennummern 3000, 3010 ... . 
Drücken Sie nach jeder Zeile RETURN. Durch anschließende 
Eingabe des Befehls LIST 3000-3999 erscheinen diese Zeile 
wieder auf dem Bildschirm. Dies ist eine einfache Möglich¬ 
keit doppelt oder mehrfach benötigte Programmze i len zu ko¬ 
pieren. Auch von anderen Programmen, wenn sie die benötig¬ 
ten Zeilen auf den Bildschirm holen, dann das Programm 
laden, in dem diese erscheinen sollen, und dann für jede 
Zeile RETURN drücken. 


Bi nominal Verteilung 

Dieses Kopieren von Programmstücken können Sie gleich im 
folgenden ab Zeile 4000 anwenden, da zur Errechnung der 
Binomina1vertei 1ung auch wieder der Binominalkoeffizient 
Verwendung findet. Für die Binomina 1 vertei lung müssen die 
Koeffizienten N und P gegeben sein, wobei sich dann auto¬ 
matisch der benötigte Wert Q aus 1-P errechnet. Zusätzlich 
muß noch der Funktionswert für die Verteilungsfunktion (X) 
erfaßt werden, dann ergibt sich die Binomina 1 vertei lung 
nach der Formel 


( n ) x n-x 
f(x) = ( ) p q 

( x ) 


was in der Variablen F gespeichert wird. Der Mittelwert 
ergibt sich für eine Binomina 1 vertei lung nach der Formel 
N * P und die Varianz aus N * P * Q. 

An dieser Stelle wollen wir es mit der Mathematik bewenden 
lassen. Aber mit ein bischen Mathematik lernt man besser 
seinen Rechner kennen, da der Computer ursprünglich ent¬ 
wickelt wurde um mathematische Berechnungen schneller und 
exakter durchführen zu können. 
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Variablen: 


Name 

Typ 

! Bereich 

! Bedeutung 

ES" 

H 

! 0. . .9 

! Wert von A$ 


H 

! 1 Zeichen 

! Warteschleife 

FA 

P 

! Integer 

! Fakultät 

Hl 

H 

! Dezimalzahl 

! HV für Summation bei 



J 

! Varianz 

H2 

H 

! Dezimalzahl 

! HV für Bin.koef F. 

H3 

H 

! Dezimalzahl 

! HV für Bin.koeff. 

H4 

H 

! Dezimalzahl 

! HV für Bin.koeff. 

K 

K 

! Integer 

! Binominalkoeff i z ient 

N 

G 

! Integer 

! Stichprobengröße 

P 

G 

! Dezimalzahl 

! Binomina1 vertei lung 

Q 

G 

! Dezimalzahl 

! Binomina 1vertei lung 

SQ 

G 

! Dezimalzahl 

! Varianz einer Stich- 



j 

! probe 

X 

H 

! Integer 

! HV für Summation 


G 

! Dezimalzahl 

! Funktionswert für 



! 

! Binomina 1 vertei lung 

XQ 

G 

! Dezimalzahl 

! Mittelwert einer 



J 

! Stichprobe 


Felder (Arrays): 


Name 

! Dirnen. ! 

Typ ! 

! Bereich 

! Bedeutung 

N 

! 0...255! 

G ! 

! Dezimalzahlen 

! Stichprobenwerte 


Dateien : 


# ! Name ! T ! Bemerkung 


- ! keine ! ! 
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Unterprogrammaufrufe : 


i n 

i 

nach 

! 

Zweck 


2 280 

j 

11000 

1 

Fakultät 

berechnen 

2310 

i 

11000 

J 

Fakultät 

berechnen 

2 340 

! 

11000 

J 

Fakultät 

berechnen 

245 0 

! 

11000 

! 

Fakultät 

berechnen 

2480 

| 

11000 

j 

Fakultät 

berechnen 

2690 

! 

11000 

! 

Fakultät 

berechnen 

2720 

! 

11000 

! 

Fakultät 

berechnen 

2750 

! 

11000 

J 

Fakultät 

berechnen 

3030 

! 

1 1000 

1 

Fakultät 

berechnen 

3060 

! 

11000 

J 

Fakultät 

berechnen 

3090 

i 

1 1000 

1 

Fakultät 

berechnen 

4050 

! 

11000 

1 

Fakultät 

berechnen 

4080 

! 

11000 

! 

Fakultät 

berechnen 

4110 

! 

11000 

! 

Fakultät 

berechnen 


Verzweigungen 

nach außen : 


in Ze ! nach 

! Bedingung 

! Bemerkung 


keine ! 


i 


i 
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Der Grafikzeichensatz 




KARTEN 


47 


2. Der Grafik-Zeichensatz 


Wie bisher alle Commodore-Rechner hat auch der Commodore 
64 den Grafik-Zeichensatz, mit dem sehr viele (wenn auch 
nicht alle) grafischen Anwendungen unterstützt werden. Die 
folgenden Kapitel sind diesen grafischen Sonderzeichen ge¬ 
widmet. Zunächst sollen die vier grafischen Zeichen Kreuz, 
Pik, Herz, Karo an zwei Beispielen dargestellt werden. Zum 
einen wird ein Unterprogramm zur relativen Kartendarstel¬ 
lung am Bildschirm aufgezeigt und anschliessend werden mit 
diesem Unterprogramm ein Spiel (POKER) erstellt. Da sich 
die hochauflösende Grafik im Normalfall nicht mit Text zu¬ 
sammen verarbeiten läßt, soll auch ein Programmkomplex für 
Balkendiagramme ohne hochauflösende Grafik beschrieben 
werden. 

Die grafischen Zeichen gestalten sich bei dem Commodore 64 
um einiges interessanter als bei den Commodore der Serien 
2000/3000/4000/8000, da sie auch noch in unterschiedlichen 
Farben dargestellt werden können. 


2.1 KARTEN - Ein Unterprogramm zur positionierten 
Darstellung von Karten am Bildschirm 


Übungsziel: 

- Nutzung des grafischen Zeichensatzes insbesondere 
der Kartensymbole 

- Aufbau von Unterprogrammen 

- Hierarchie von Unterprogrammen 

- Testrahmen für Unterprogramme 

- Mnemotechnische Zeilennummernvergabe 


10 ti p 0 K E 53280 r ti 
1 10 P0KE53281 1 

120 DR 1 RH, 2.34 67 ■■ o _ r 3.2 . B. Ei. K 

130 DI NRR:f < 13 > 

140 FÜR 1 = 1 TOI 3 
1 HR RERDRR-T < I 
160 HEXT 
170 PRINT"3" 
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180 FOR T“1T04 

190 IFJ= 1THENFT=" ■ " :KT="*" 

200 IFJ=2THENF$= "II" :KT="*" 

210 IF.J=3THENFT="|B" :K$="*" 

220 IFJ=4THEHFT="ffl" :KT="+" 

230 FORfl=IT013 

240 F' R INT" I2SHSHSHI1JIJUU'' J 

250 GOSUB10000 

260 GETUT : IFWT=""THEM260 

270 HEXTfl 

280 HEXT J 

290 EHD 

10000 REN**************************************************** 
10010 REN* KARTEN flUSGEBEN * 

10020 REN**************************************************** 
10030 FlRT=flRT < fl 
10040 fl R T=fl R $ fl 

10100 REN ******************** 

10110 REN ***** 1.ZEILE ***** 

10120 REN ******************** 

10130 fr i ht - rar-ISlHHBnilll" ? 

10200 REN ******************** 

10210 REN ***** 2.SEILE ***** 

10220 REN ******************** 

10230 PRIHT'T "FT ;flF:T; " "jflRT;"« ['Ü1IBMHHI" ; 

10300 REN ******************** 

10310 REN ***** 3.ZEILE ***** 

10320 REN ******************** 

10330 IFfl=3THENG0SUB15100 :GOTO10360 
10340 IFfl>5THEMG0SUB15200:GO T010360 
10350 G 0 S U B1500@ 

10360 PRINT"SUHIHiHI" ’ 

10400 REN ******************** 

10410 REN ***** 4. ZEILE ***** 

10420 REN ******************** 

10430 IFfl=2THEHG0SU & 15100:GOT010460 
10440 IFfl=4ORfl=5ORfl>7THEHGO8UE: 15200 ;GOTO 10460 
10450 G 0 SUB1500@ 

10460 PR I NT " SMIHMinil" ; 

105O0 REN ******************** 

1051O REN ***** 5.ZEILE ***** 

10520 REN ******************** 

1 @530 I Ffl= 10RFl=30Rfl—50Rfl=9THENG081JB15100 sGOTO 10570 
10540 I Ffl.---7THENG0SI.JB 15300 :GOTO 10570 
10550 IF fl=6 0 R fl > 9 T H E H G 0 8 LI ES 15200 s G 0 T010570 
1056O G 0 S U B15 0 @ @ 

1057@ PRINT"Bai*iBB«l" ' 

10600 REN ******************** 

10610 REN ***** 6.ZEILE ***** 

10620 REN ******************** 

1 @63@ IFfl=2THENG08IJB15100 : G0T01G66(3 
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18640 IE A=4UE H=50E fl > 7 T H E N G O SUB15200 : GOTO 10660 
10650 G 0 S U B15000 
10660 PRINT-SliiMMI" ; 

10700 rem ******************** 

10710 REM ***** 7.ZEILE ***** 

10720 REM ******************** 

10730 IFR=3THENG0SUB15100:GOTO10760 
10740 IF R > 5 T H E N G 0 S U B15200 : G 0 TOI 0760 


10750 G0SÜB 1500101 
10760 FR INT " £11 Ml IM UHU" ; 

10800 REM ******************** 

10810 REM ***** 8.ZEILE ***** 

10820 REM ******************** 

10830 PR I HT" 1 "F$ ;ART" " :RRT; " B ßlll UH IM Hl fl" ; 

10900 REM ******************** 

1 0 9 1 0 R E M * * * * * 9. Z E I LE * * * * * 

10920 REM ******************** 

1 0930 PR I NT " m l. I " ; 

10940 RETURN 

15000 REM**************************************************** 


15010 
15020 
15030 
1504Ö 
15050 
15100 
151 10 
1 5120 
152001 
15210 
15220 
153010 
15310 
15320 


REM* ZEILEN MIT UNTERSCHIEDLICHER ZAHL VON EIN'ERREGEN * 
R E M * * ************************************** * *** ******** 
REM***** KEIN EINTRAG ***** 


PRINT "ml 


RETURN 

REM***** 

PR INT "ll " ;F$;" 

RETURN 

REM***** 

PR INT" ll ".pF*;" 

RETURN 

REM***** 

PRINT "Bl ";F*.:" 
RETURN 


EIN EINTRAG 
" ; K* ; " " ; "■ |"; 

ZWEI EINTRREGE 

I"; 


DREI EINTEREGE 
" .;K*;K*;K* r " " ; " H I" ; 


***** 


***** 


***** 


Commodore bietet von jeher durch seine vier grafischen 
Zeichen Kreuz, Pik, Herz und Karo die Möglichkeit, Karten¬ 
spiele mit dem Computer möglichst echt zu gestalten. Die 
Symbole allein nützen einem wenig, wenn man für jedes Pro¬ 
gramm die Darstellung von Karten neu entwickeln muß. Das 
vorliegende Unterprogramm erzeugt Karten, mit einer gewün¬ 
schten Kartenfarbe und Kartenhöhe die von einem vorher an¬ 
gesprungenen Bildschirmpunkt (durch Cursorpositionierung) 
nach rechts und unten ausgegeben werden. Um eine freie Po¬ 
sitionierung innerhalb des Bildschirms zu ermöglichen, 
sind alle PRINT-Befeh 1e auf den Beginn (linke obere Ecke 
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der Karte) abgestimmt. Alle Bewegungen des Cursors sind 
relativ zu diesem Punkt zu sehen. 

Zunächst einmal muß man sich überlegen, wie hoch und wie 
breit eine Karte in Zeichen sein darf. Zunächst die Brei¬ 
te: Für den Rahmen rechts und links muß man zwei Zeichen 
vorsehen. Da zusätzlich mit den Rahmenzeichen keine weite¬ 
ren Angaben gemacht werden können, muß man für die Kenn¬ 
zeichnung der Karte (z.B. As, 2, 3, 4) eine weitere Stelle 
für jede Seite vorsehen und noch drei weitere Stellen ins¬ 
gesamt zum Darstellen der einzelnen Zeichen (Kreuz, Pik, 
Herz, Karo) auf der Karte. Dies ergibt insgesamt neun Zei¬ 
chen, sodaß nebeneinander auf dem Bildschirm bis zu fünf 
Karten dargestellt werden können. Durch die Breitenauftei¬ 
lung ergibt sich auch schon eine optisch vertretbare Höhe 
mit neun Zeilen. Der Rahmen muß mitangegeben werden, damit 
man eine Karte auch vom Hintergrund unterscheiden kann, da 
wir auch für Kreuz und Pik die Farbe Schwarz und für Herz 
und Karo die Farbe Rot heranziehen wollen. Würde man für 
jedes Zeichen eine eigene Hintergrundfarbe wählen, so wür¬ 
de die Programmierung viel zu komplex. Wir stellen daher 
alle Karten mit einem schwarzen Rand auf weißem Untergrund 
dar, die Kartenfarbe ist auch Weiß. 

Die Karten werden zeilenweise generiert, wobei nach jeder 
Zeile ein Rücksetzen des Cursors auf die erste Spalte er¬ 
folgt, womit die Zeile unter der Letzten ausgegebenen an¬ 
gewählt wird. 

Das Unterprogramm teilt sich in zwei Bereiche auf: Die 
Zeilen 10000 bis 10940 stellen den Hauptteil des Unterpro¬ 
grammes mit den PRINT-Befehlen. Ab Zeile 15000 bis 15320 
befinden sich noch einige Unterprogramme zum unterschied¬ 
lichen Eindruck von Kartensymbolen. Wenn man sich eine 
Karte näher betrachtet, kann man bei zeilenweisem Vorgehen 
feststellen, daß in einer Zeile entweder keine Einträge 
von Kreuz, Pik usw. sind, oder ein Eintrag oder zwei Ein¬ 
träge. Für unseren speziellen Fall müssen auch z.B. für 
die '7' noch drei Einträge in einer Zeile untergebracht 
werden, da sonst die Kartenhöhe mit neun Zeilen nicht ein¬ 
gehalten werden könnte. Die Unterprogramme ab Zeile 15000 
korrespondieren in ihrer Hunderterstelle und drucken eine 
Kartenzeile mit entsprechender Anzahl von Kreuz, Pik usw. 
(festgehalten in der Variablen K$). In der Variablen F$ 
wird jeweils die Farbe der Karte (Schwarz oder Rot) fest¬ 
gehalten. Der Rahmen selbst wird schwarz dargestellt, da¬ 
her auch jeweils die Farbumschaltung vor einem Randzei¬ 
chen. 

Gehen wir nun die einzelnen Zeilen bei der Ausgabe einer 
Karte durch. Auch in dem Bereich 10000 bis 10940 sind die 
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Hunderterste 1 len der Zeilennummer korrespondierend zu der 
Zeile der Karte vergeben. Solche mnemotechnischen Tricks 
gestatten einem das schnelle Auffinden von Programmstel¬ 
len, ohne erst lange im Listing suchen zu müssen. Die er¬ 
ste Zeile ist zwangsläufig bei allen Karten gleich und be¬ 
inhaltet den oberen Rand sowie die beiden Ecken. Aber be¬ 
reits in der zweiten Zeile unterscheiden sich die Ausga¬ 
ben. Hier werden die Kartenarten ausgegeben. Dazu wird zu¬ 
nächst die Farbe zwischen Schwarz und Rot gegebenenfalls 
gewechselt, dann wird die Kartenart ausgegeben, die in der 
Variablen AR$ an das Unterprogramm übergeben wurde. Dies 
sind die Bezeichnungen A,2,3,4,5,6,7,8,9,Z,B,D,K. Ab der 
dritten Zeile bis zur siebten Zeile erfolgt die Ausgabe 
der Karten Symbole. Diese Unterprogrammstücke sind immer 
gleich aufgebaut: Zunächst wird gefragt ob für bestimmte 
Kartenhöhen (die in der Variablen A festgehalten sind) 
Einträge von Kartenze ichen gedruckt werden müssen. In die¬ 
sem Fall werden die entsprechenden Unterprogramme ange¬ 
sprungen und anschließend ein Sprung auf die Zeile zum 
Setzen des Cursors auf den nächsten Ausdruck ausgeführt. 
Wurden keine Karteneinträge ausgegeben, so durchläuft das 
Programm immer alle IF-Abfragen und landet schließlich bei 
dem Unterprogrammaufruf ’GOSUB 15000'. Dort wird eine Kar¬ 
tenzeile mit 0 Einträgen gedruckt. 

Gehen wir jedoch die Zeilen drei bis sieben der Reihe nach 
durch. Ist die zu druckende Karte eine '3', so muß in der 
dritten Zeile ein Zeichen (z.B. Herz) ausgegeben werden. 
Ist der Kartenwert größer als fünf, so müssen in der drit¬ 
ten Zeile zwei Einträge in den Positionen (Spalten) drei 
und fünf gedruckt werden. An dieser Stelle sei angemerkt, 
daß im vorliegenden Unterprogramm die Bildkarten (Bube, 
Dame, König) wie eine Zehnerkarte dargestellt werden, nur 
mit anderer Kartenart. Dem Leser bleibt es überlassen, 
hier mit der Grafik sich eigene Bilder zu entwerfen und 
diese entsprechend in das Unterprogramm einzubauen. 

In der vierten Zeile muß für die Kartenhöhe '2' ein Zei¬ 
chen ausgegeben werden und für die Kartenhöhen '4', '5', 
oder '7' bis zu 2 Einträge. In der fünften Zeile für die 
Werte '1', '3', '5' oder '9' ein Eintrag für die '7' drei 
Einträge und für die Werte '6' und '9' bis 'K' zwei Ein¬ 
träge. Die sechste und siebte Zeile entsprechen umgekehrt 
wieder den Zeilen vier und drei, da das Kartenbild symme¬ 
trisch ist. Ebenso entsprechen die Zeilen acht und neun 
den Zeilen zwei und eins, wobei in der neunten Zeile der 
gespiegelte Rand und die anderen Ecken auszugeben sind. 

Da größere Programme im Zusammenhang sehr schwer auszutes¬ 
ten sind, geht man hin und testet einzelne Unterprogramme 
mit einem Testrahmen. Dies soll hier am Beispiel des Un- 



52 


Kapitel 2.1 


terprogramms zur Kartengenerierung deutlich gemacht wer¬ 
den. Das eigentliche Unterprogramm in den Zeilen 10000 bis 
15320 ist alleine nicht lauffähig, kann jedoch in dieser 
Form in jedes andere Programm eingebaut werden, wobei je¬ 
doch beachtet werden muß, daß die Variablen F$, K$, A, und 
AR$ Eingabeparameter dieses Unterprogramms sind und ihre 
Verwendung dementsprechend in dem umgebenden Hauptprogramm 
berücksichtigt werden muß. 

Gerade für diese Werte ist in den Zeilen 100 bis 290 ein 
kurzes Testprogramm eingegeben, indem zunächst die Farben 
des Bildschirms und des Hintergrundes eingestellt werden 
(Zeile 100 und 110) und in Zeile 120 die verschiedenen 
Kartenwerte festgelegt werden, die in den Zeilen 130 bis 
160 an das Feld AR$ (13) übergeben werden. In Zeile 170 
wird der Bildschirm gelöscht und in den Zeilen 180 bis 280 
werden für alle vier Kartenarten die Farbe und die Karten¬ 
art vorbesetzt und in einer weiteren Schleife in den Zei¬ 
len 230 bis 270 die Karten mit den Werten eins bis drei¬ 
zehn (l=As, 13=König) ausgegeben. Zur Kontrolle jeder ein¬ 
zelnen Karte wurde in Zeile 260 noch eine Warteschleife 
auf den Druck irgendeiner Taste eingebaut. 

Mit diesem kurzen Testprogramm von zwanzig Zeilen kann man 
jetzt unabhängig von allen anderen Programmen, wo das Un¬ 
terprogramm später eingesetzt wird, den Ausdruck jeder 
einzelnen Karte kontrollieren. 


KARTEN 


100 - 15320 


Variablen: 


Name 

j 

typ 

! Bereich 


Bedeutung 

A 

! 

E 

! 1 ... 13 


Nummer der Kartenart 

AR$ 

I 

E 

! A,1,2, . . . 

D, K ! 

Kartenart 

F $ 

j 

j 

E 

! 'schwarz' 

o. 'rot' ! 

eigentliche Farbe der 
Karte 

I 

! 

H 

! 1... 13 


Laufvariable K.Höhe 

J 

j 

H 

! 1. . .4 


Laufvariable K.Art 

K$ 

! 

E 

! Kreuz,Pik 

... 1 

'Kartenfarbe 1 

w$ 

j 

H 

! 1 Zeichen 

(Taste)! 

zum Einlesen ein. Zei 


! chens von der Tastatur 
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Felder (Arrays): 


Name ! Dirnen. ! Typ ! Bereich ! Bedeutung 


AR$ ! 13 ! G ! A,2,3, . . . ; D,K ! Zuordnung Karten 

! ! ! ! art/Kartennummer 


Unterprogrammaufrufe : 


i n 

! 

nach 

j 

Zweck 





250 

! 

10000 

i 

Ausgabe 

einer 

Karte 



10330 

j 

j 

15100 

| 

J 

Au sga be 
Zeichen 

e i ner 

Kartenzei le 

mit 

e i nem 

10340 

1 

! 

15100 

j 

i 

Au sga be 
Zeichen 

e i ner 

Kartenze i le 

mit 

zw e i 

10350 

! 

! 

15100 

j 

! 

Au sgabe 
Zeichen 

einer 

Kartenzeile 

m i t 

keinem 

10430 

j 

j 

15100 

! 

! 

Au sga be 
Zeichen 

e i ner 

Kartenzeile 

mit 

einem 

10440 

i 

1 

15100 

! 

i 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

zwe i 

10450 

! 

! 

15100 

j 

! 

Au sga be 
Zeichen 

einer 

Kartenzeile 

m it 

keinem 

10530 

! 

! 

15100 

j 

[ 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

einem 

10540 

j 

! 

15100 

I 

j 

Au sgabe 
Zeichen 

e i ner 

Kartenzeile 

mit 

drei 

10550 

! 

j 

15100 

i 

j 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

zwe i 

10560 

! 

! 

15100 

! 

j 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

keinem 

10630 

! 

i 

15100 

! 

! 

Ausgabe 
Ze ichen 

e i ner 

Kartenzeile 

mit 

e- i n e m 

10640 

! 

j 

15100 

I 

! 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

zwe i 

10650 

! 

! 

15100 

I 

! 

Au sga be 
Zeichen 

e i ner 

Kartenzeile 

mit 

keinem 

10730 

j 

! 

15100 

! 

j 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

einem 

10740 

j 

! 

15100 

j 

! 

Au sga be 
Zeichen 

e i ner 

Kartenzeile 

mit 

zwe i 

10750 

! 

! 

15100 

! 

1 

Ausgabe 

Zeichen 

e i ner 

Kartenzeile 

mit 

keinem 
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! Verzweigungen 

1 

nach außen : 


! i n Ze 

nach 

! Bedingung 

Berne rk ung 

! 290 

! 10940 
! 

END 

RETURN 

! normaler Abschluß 
! Ende der Ausgabe 
! einer Karte 

bei Verwendung als 
Unterprogramm 


2.2 Poker - ein Ein-Mann-Poker-Spiel 


In diesem Pokerspiel wollen wir sogleich das in Kapitel 
2.1 vorgestellte Unterprogramm zur Ausgabe von Karten ver¬ 
wenden. Nachgebildet ist dieses Pokerspiel den Spielauto¬ 
maten, wie sie auch in den Automatenräumen von Spielhallen 
zu finden sind. Bei diesem Spiel werden fünf Karten am 
Bildschirm ausgegeben und durch geschicktes Nachkaufen 
kann man sich eine Kartenkonfigeration zusammenkaufen, 
durch die ein maximaler Gewinn erzielt wird. Das Spiel 
führt den Kapitalstand automatisch mit. 


Übungsziel 

- IF-Abfragen (bedingte Verzweigungen) 

- mnemo-technische Zeilennummernvergabe 

- Unterprogrammaufrufe und -gestaltung 

- Nutzung des grafischen Zeichensatzes 


1 0 0 0 R EH*#* 4 4 * * 4 * 4 * *4 * * 4 * * * 4:4444444444444444444444444444 
1010 REM4 VORSPANN UND AUSGABE DER ERSTEN 5 KARTEN 4 
1020 REM44 44444444444 4444 4444 44444 444 4444444444444444 4 4 4 

10 38 R O K E53280 ,■ 0 
1040 P OKE53281,1 


J. 856 

i<n =i 00 

! ÜbÜ 

D1 MHE (. 4 > 

1 0 

DI MKA< 5 , 2> 

;! i.iÖÖ 

DI r INA < 4 2 > 

1 090 

QATAA , 2 3, 

;! L U0 

UIMAR4C 1 3> 

:L 11 0 

FÜR1=1TO13 

pppnpp ±; ,• T -J 

.1. J. 

i i 30 

HEXT 

j 140 

PRINT'TJ" 
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1150 IFKfl<-100THEN519Ö 

1160 K fl=Kfl—5 

1170 RF=0 

1180 S=0 

1190 1-13=0 

1200 FU=0 

1210 FL.-=0 

1220 DR=:0 

1230 VI=0 

1240 P2=0 

1250 P1=0 

1260 FÜR I = 1T05 

1270 Ü N I GOSIJ B 20100,20200,20300,20400,20500 
1280 Kfl I , 1 > = I NT < RHD < 5 > * 1 3 > +1 
1290 Kfl < I2 > = I NT C RND < 3> *4 J +1 
1300 F 0 R J = I -1T 01S T E P -1 

1310 I FKfl C I 1 > =Kfl C J1 > fl HD Kfl < I 2 T =Kfl < J2 >THEN 1230 
1320 HEXTJ 
1 330 G Ü S IJ Ei 10000 
1340 HEXTI 

2000 REN************************************************ 
2010 REN* NflCHKflUFEN * 

2020 REM************************************************ 
2030 PRINT"HS 1 2 3 4 5" 

2840 PRINT" *JJ EIN l< fl P I T fl L'' ; K fl 

2050 PRINT" ;sj'10ECHTEST Dü NEUE KARTEN < J.-'N > " 

20160 GETH-T ;; IF 1-1$= " " THEN2IU6U 
2070 IFFI $==" J " THE N 210 0 
2880 I Ffl$== " H " THEN3000 
2090 GOT02060 

2100 F'R INT " SU N IE VIELE KARTEN ? ” : 

2110 GETA4:IFfl$ =""THEN2110 
2120 PRINTAT 
2130 N=VAL CATi 
2140 Kfl=Kfl—N 

2150 IFN< 10RN>4THENPRINT"SJ'1 EHR ALS 4 GEHT NICHT" .-G0TÜ2110 
2160 FORK=1TON 

2170 N fl C K,1> = INT<RND<5 >*13> +1 
2180 NA C K2 > = I NT< RND C 3 > *4 > +1 
2190 FORM=K—1 TO1STEP-1 

2200 I FNfl < K1 > =41 fl < M , 1 > flNDNfl < K , 2 >=Nfl C M , 2 > TH EEN 2170 
2210 HEXTM 
2220 F0RM=1T05 

2230 I FNfl < K1 > =Kfl< M1 > flNDNfl C K2 > =Kfl < M , 2 > THEN21 70 
2240 I FNfl K1 > =Kfl C M1 > flNDNfl C K2 > =Kfl C M2 > THEN2170 
2250 HEXTM 
2260 NEXTK 

2270 PRINT"SJ31TTE DREIECKE JETZT DIE ENT- 
2280 PRINT"SPRECHENDEN ZIFFERNTASTEN ZU DEN 
2290 PRINT"NUMMERN UNTER DEN KARTEN 
2300 F0F!K=: 1 TON 








56 


Kapitel 2.2 


2310 GETfl* : I. FB$= " " TH EH 2318 
2320 B=VAL C A4 > 

2330 IFB<1ORB>5THEN2320 

2340 HE<K>=B 

2350 HEXTK 

2368 F0RL=1T0N 

2370 KR<NE<L >,1>=NBC L,1> 

238£i KR C HE < L > 2 > =NR < L . 2 > 

2390 0N HE C L > GQSUB 201002020Ei, 2Ei3Ei0.,2Ei400 ..20500 

2400 I =HE C L 

2 410 G 0 SIJ B10000 

2420 HEXTL 

2430 PR 1 HT 

3000 REN************************************************ 
3010 REN* AUSWERTUNG * 

3020 REN************************************************ 
3030 REN ***** FLRSH ***** 

3040 FQRI=1T05 
3050 FÜRJ=ITOS 

3060 IFKA< I.. 2 >OKA C J ,2 > THEN3100 sREN KE IH FLRSH 
3070 HEXTJ 
soso he: :ti 

3090 FL=1 

310Ö REN ***** STRASSE ***** 

3110 REN ***** SORTIEREN ***** 

3120 FORI=1TOS 
3130 M1=14 
3140 FOR J--1T05 

3150 I FKA C .J1 > <N I THENN I =KA C J.. 1 > :W0=J 
3160 HEXTJ 
3170 H=KACW0,1> 

3180 KR < WO . 1 =KR C I . 1 > 

3190 KR CI.. i::'=H 
3200 HEXTI 

3210 REN ***** STRASSE JA/NEIN ***** 

3220 I FKfl C 1 .. 1 > +1 OKA C 2,1> THEH3260 

3230 I FKA C 2.. 1 >+1 OKA C 3... 1 > THEH3260 
3240 I FKA C 3.. 1 > + 1 OKA C 41 > THEH3260 
3250 I FKA < 1 ,. .1 > 01 THEHS=1 

3260 REN ***** HOECHSTE STRASSE JA/HEIN ***** 

3270 I FKA C 1 .. 1 > = 1AHDKA C 2.. 1 > = 10ANDKA C 5.. 1 > = 13THEHHS= 1 
3280 REN ***** ROVAL FLASH JA/HEIN ***** 

3290 IFHSAHDFLTHEHRF =1 :GOTO4000 

3300 IFHSORSORFLTHEH4000 

3310 REN ***** VIERER JA/HEIN ***** 

3320 I FKA C 1 .. 1 > =KA C 4.. 1 > ORKA C 2,1 >=KA C 5.. 1 > THEHV 1 = 1: GOTO4000 
3330 REN ***** DREIER JA/HE IN ***** 

3340 I FKA C .1 .. 1 > =KA C 3.. 1 > THEHDR= 1 
3350 I FKA C 2.. 1 > =KAC 4.. 1 > THEH0R=2 
3360 I FKA C 3,1 > =KA C 5., 1 > THEHDR=3 
3370 REN ***** FULL HOUSE JA.•■'HE IH ***** 
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3 3 S 0 IF 0 R = 1fl H 0 K11 I 4, 1 = K fl < 5,1 > T H E H F U = 1 
3390 I FDR--3 RHDKR 11 , 1 > =KR < 2,1 > THEHFU= 1 
3400 IFDRORFUTHEH4000 

3410 REM ***** 2 PHI-IRE -TR/HE IN ***** 

3420 IFKR < 1 , 1 > =KR < 2 , 1 > RHDKR < 31 > =KR < 4 1 > THEHP2= 1 
3430 I FKR < 1 , 1 > =Kfl < 2, 1 >RHDKR C 4,1 > =KR < 51 > THEHP2= 1 
3440 I FKR ■: 2,1 > =KR < 3, 1 > RHDKR < 4,1 >=KR < 5 , 1 > THEHP2= 1 
3450 IFP2THEH4000 

3460 REM ***** 1 F'RRR -TR/HE IH ***** 

3470 I FKR C 1 , 1 > =KR< 2.. 1 > THEHP1 = 1 
3480 I FKR< 2.. 1 > =KR < 31 > T HEHP 1 = 1 
3490 I FKR C 3 , 1 > =KR C 4, 1 >THEHP 1 == 1 
3500 IFK R C4,1>=KR<5,1> THEHP1 = 1 

4000 REM************************************************ 
4O10 REM* GEWIHM FESTSTELLER * 

4O2O REM********************* *************************** 
4030 PR IHT " HRST 

'4040 IFRFTHEHPRI HT " EIHEHURQVRL FLRSH" :GE= 1000 : G ÜT04140 
4050 IFFLRHDSTHEHPRI HT "EI HEH STRl-l IGHT FLASH " : GE=750 :GOTO 
4060 IF VITHEHPRI HT " EI HEH Uv’ IERER " : GE=500 :: G0T04140 41 40 

4070 IFFLTHENPRI HT "E: IHEN FLRSH " : GE=350 : GO TG 41 40 
408O IFFIJTHEHPRI NT "EI H FIJLL H0USE " : GE=250 : G0TO4140 
4090 IFSTHEHPRIHT"EIHEN STRRIGHT":GE=100:G0T04140 
4100 IFDRTHEHPRIHT"EIHEH DREIER" sGE=50:GOT 04140 
4110 IFP2THEMPRIHT"2WEI PRRRE" :GE=25:GOT 04140 
4120 IFP1 THEHPR I HT " EIH F'RRR " : GE=5 :G0T041.40 
4130 PR IHT"HICHTS" :GE=0 

4140 PRIHT"DEIH KAPITAL VERMEHRT SICH UM "GE"PUHKTE" ; 

4150 KR=Kfl+GE 
4160 PRIHT" 

4170 PR IHT" 

4180 PRIHT"DEIH KAPITAL BETRREGT JETZT";KR 

5000 REM************************************************ 
5010 REM* SPIELEHDE / ABSCHLUSS * 

5020 REM************************************************ 
5030 PRIHT"WEITERES SPIEL ?" 

50401 GETITT : I Ffl*= " " THEH504O 
5050 IFR*-- " -T " TIHEH1 140 
5060 I FR* = " H " TH EH5080i 
5 0i 70 G 0 T050i 4 0 
5080 F’OKE53280,7 
5090 POKE53281 .,7 

5100 PRIHT"351533U HRST JETZT EIH KAPITAL VON " ;KR 

5110 I FKRC0THEHPRI HT " MBIBIbIBE i RRUFGEZRHLT ? WIE ?" sEHD 

5120 IFKRC50THENPRI HT " MBlBlMia i ICHT BE SO HD EPS " : EHD 

5130 IFKR< 150THEHPRINT"HSSISISIR BI SSL WAS ISTS R":END 

5140 IFKflC20iÖT HEiHPRI HT" »MbIbIbB EACHTE I CH " : EHD 

5150 IFKRC500 T HEHPR I HT " bIbMbIbU ERV0RRRGEHD" :EHD 

5160 IFKR< 100OTHEHPRIHT" MalBlBW ICH WUESSTE DR EINE GUTE 

5170 IFKR<1000THEHPRINT"EIHHRHMEQUELLE" :END ZUSRETZLICHE 

;5188 ” I F-KR> 10i 00 THEHPR I HT " bMBMbMbIbM JHD DR SPIELST DU HUR 

MIT MIR ???! ! ! ???" :END 
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5190 P0KE53280, 7 
5200 P0KE53281.. 7 

5210 PRINT" rTglBü DLI HAST JETZT EIN KAPITAL VON " ;KA !!!!!":END 
5220 PRINT" MMMMW IUH KANN DIR LEIDER KEINEN KREDIT MEHR GEBEN 
10000 R h M * * * * * ** * * * ** * * * * * * * * ** ** * ** * * * * * * * * * * * ** ** ** * * * * * * * * 
10010 REM* KARTEN AUSGEBEN * 

10020 REM**************************************************** 
10030 A=KA 1,1 > 

10040 AR^=AR*<A> 

10050 IFKA CI,2 > = 1THENF*="1":K$="*" 

10060 I FKA < I , 2 > =2THENF $■= " ■ " : Kt= " * " 

10070 I FKA <: I , 2 > =3THENF*= " 5" : K$= " V " 

10080 I FKA < I2 >=4THENF*=" 53" :KT= " * " 

10100 REM ******************** 

10110 REM ***** 1.ZEILE ***** 

10120 REM ******************** 

10130 PR INT" Bf 7IIII1IRIII s 

10200 REM ******************** 

10210 REM ***** 2.ZEILE ***** 

10220 REM ******************** 

10230 PRINT"| "FT ? ART ; " " ;AR$; "■ l/<lflRIllclRr ; 

10300 REM ******************** 

10310 REM ***** 3.ZEILE ***** 

10320 REM ******************** 

10330 IFA=3THENG0SUE: 15100 : GOT01.0360 
10340 IF A > 5 T H E N G 0 SIJ B15200 : G 0 T010360 
1035(3 G O S IJ B15000 
10360 PR I NT " «IHlUnKHI" ; 

10400 REM ******************** 

10410 REM ***** 4.ZEILE ***** 

1042O REM ******************** 

10430 IFA=2THENGOSUB15100:GOT010460 
10440 IFA=4ÜRA=50RA>7THENGOSUB15200:GOTO10460 
10450 G 0 S IJ B1 5000 
1.0460 PRIHT"gJHBIIi*lil" ; 

10500 REM ******************** 

10510 REM ***** 5.ZEILE ***** 

10520 REM ******************** 

1 0530 I FA= 10RA=:30RA=5OR:A=9THEl!N00SUB15100 : GOT010570 
10540 x p A=7 T H E N G 0 S IJ B15 3 G 0 : G 0 T010570 
10550 IFIT=6 0 R A > 9 T H E N G 0 SIJ B15200 : G 0 T010570 
10560 G O S IJ B15 0 Gi 0 
10570 PR I NT " SHIHRniM" ; 

10600 REM ******************** 

10610 REM ***** 6.ZEILE ***** 

10620 REM ******************** 

10630 IFA=2THENG0SUB15100 : GOTO1@660 
10640 IFA=4OR A=50RA> 7THENG0SIJ B15200:GOTO10660 
10650 G O S U E: 15000 
10660 PRIHT"£1RRRRRRI" ‘ 

10700 REM ******************** 
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10710 REN ***** 7.ZEILE ***** 

10720 REN ******************** 

1 0730 I F fl=3 T H E N G U SIJ B 151 00 : GUTU1 0760 
1O740 IFfl>5THEHG0SUB15200:GOTO10760 
10750 GOSÜB 150OO 
10760 PEIHT-HUBIIililH" ; 

10800 REN ******************** 


1081 0 

REN ***** 

i. 8. ZEILE * 

**** 


10820 

REN ******************** 


10830 

PRINT"| "F 

TrflRT; " 

■ART; "II BlliaHRIBI"; 


10900 

REN ******************** 


10910 

REN ***** 

9.ZEILE * 

**** 


1092O 

REN ***** 

:***:+**:+**** 

**** 


10930 

PRINT"HL_ 

. 1 | * ‘ " 



10940 

RETURN 




1 5 000 

REN**************************************************** 

15010 

REN* ZEILEN NIT UNTERSCHIEDLICHER ZAHL 

VON EINTRAEGEN * 

15020 

REN**************************************************** 

1503O 

REN***** 


KEIN EINTRAG 

***** 

15040 

PR INT "Bl 

1" ; 



15O50 

RETURN 




15100 

REN***** 


EIN EINTRAG 

***** 

1511 0 

PR INT "11 " 

; FT; " " ;KT 

; ,, .„ B r . 


15120 

RETURN 




15200 

REN***** 


ZWEI EINTRAEGE 

***** 

15210 

PR INT "Bl " 

;F$;" ";KT; 

" " ;KT; " " ;"B 1"; 


15220 

RETURN 




15300 

REN***** 


DREI EINTRAEGE 

***** 

15310 

PR INT "Bl " 

;FT;" ";KT; 

KT;KT;" " ; "B 1"; 


15320 

RETURN 




1S y 9 3 

END 




20000 

REN**************************************************** 

20010 

REN* 

KARTE 

POSITIONIEREN 

* 

20020 

REM****** 

************ 

: * * * * * * * * * * * * * * * * * * :• 

***************** 

20 100 

PRINT"g|H" 

1 ; 



20110 

RETURN 





20200 PR I NT " äSHLiMMJU" f 
20210 RETURN 

2 0 3 0 0 P RIN T' ! aslMJtÜJÜl.ÄlftMJJIM1 1 '; 

20310 RETURN 

2040O PRINT"; 

20410 RETURN 

205O0 PRI NT " ; 

20510 RETURN 

60O00 SflVE " 11: P0KER" , 8 

60010 OPEN1,8,15 

6O020 IHPIJT# 1 , fl BT , C , D 

6 0 O 3 0 P R INT fl ; E: T; C ; D 

60040 CLOSEI 

6O050 END 
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Zeilenbereiche 


1000 - 

1340 

2000 - 

2430 

3000 - 

3500 

4000 - 

4180 

5000 - 

5220 

10000 - 

10940 

15000 - 

15320 

20000 - 

20510 

60000 - 

60050 


Programmvorspann und Ausgabe der ersten 
fünf Karten 
Nachkäufen von Karten 
Auswertung der gezogenen Karten 
Gewinn feststellen und Ausgabe der Gewinn¬ 
art, der Gewinnsumme und des neuen Kapitals 
Spielende und Abschluß 

Unterprogramm zur Darstellung der Karten 
Unterprogramme, die zur Darstellung der 
Karten benötigt werden, (vergleiche 
Kapitel 2.1) 

Unterprogramme zum Positionieren der fünf 
Karten 

Hilfsprogramm zum Abspeichern der neuen 
Programmver sion 


Vorspann und Ausgabe der ersten fünf Karten 

Zunächst werden auch in diesem Programm wieder die Farben 
für Bildschirm und Rand gesetzt (Zeilen 1030 und 1040) 
dann wird das zur Verfügung stehende Kapital mit 100 Ein¬ 
heiten vorbesetzt und die benötigten Felder werden dimen¬ 
sioniert. (vergl. Variablenliste). Im Weiteren werden die 
Kartenwerte (A,2,...,D,K ) vorgegeben, sowie ein Feld zum 
Speichern dieser Werte dimensioniert und besetzt (Zeilen 
1090 bis 1130). Dann wird der Bildschirm gelöscht und ab¬ 
gefragt ob mehr als 100 Kapitaleinheiten Schulden beim 
Spieler bestehen, in diesem Falle wird eine Meldung ausge¬ 
geben (auf blauem Bildschirm), daß dem Spieler kein Kredit 
mehr gewährt wird und das Spiel wird abgebrochen (Zeilen 
5190 bis 5220). 

Die Zeile 1140 ist auch gleichzeitig Ansprungste 1 le für 
jedes weitere Spiel. Im weiteren Verlauf wird in Zeile 
1160 das Kapital um fünf Einheiten verringert (Spielein¬ 
satz pro Spiel) und diverse Variablen, die die späteren 
Gewinnmöglichkeiten festhalten sollen, mit '0' vorbesetzt. 
In der Schleife in den Zeilen 1260 bis 1340 werden die er¬ 
sten fünf Karten am Bildschirm ausgegeben, dazu wird zu¬ 
nächst aufgrund der Laufvariablen I in die Unterprogramme 
ab 20000 gesprungen, wobei die Hunderter-Ste 1 le der Zei¬ 
lenzahl jeweils mit der Nummer der Karte übereinstimmt. 
Diese Unterprogramme positionieren den Cursor entsprechend 
für die auszugebende Karte. In den Zeilen 1280 und 1290 
werden Kartenhöhe und Kartenart bestimmt, und in den Zei¬ 
len 1300 bis 1320 wird festgestellt ob diese Karte bereits 
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gc/o(jen wurde. 

Dies ist natürlich kein korrektes Mischen von Karten, aber 
ein korrektes Mischprogramm zu erstellen bleibt dem Leser 
überlassen. Vielleicht versuchen Sie es mit einer Zeichen¬ 
reihe von 104 Stellen wo jeweils zwei benachbarte Stellen 
Kartenhöhe und Kartenart anzeigen. Diese Zeichenreihe ver¬ 
arbeiten Sie dann mit RIGHT$(,), LEFT$(,) und MID$(,,) wie 
es auch dem natürlichen Mischen entspricht. Setzen Sie für 
die Länge der abzuschne i deriden Zeichenreihe jeweils eine 
ZuPallszahl - die natürlich gerade sein muß - zwischen 0 
und 104 ein, vielleicht in i t dem Befehl : 


ZU = ( IN T( R ND(5) *52 ) + 1) *2. 


Wenn Sie die Karten jedoch korrekt mischen werden Sie 
feststellen, daß das Spiel sehr schnell uninteressant 
wird, da Gewinnkombinationen viel seltener auftauchen, als 
bei der programmierten Zufallsauswahl. 

Die Zeilen 1300 bis 1320 sind unbedingt notwendig, wenn 
der Computer nicht zum Falschspieler werden soll. Zeile 
1130 veranlaßt die Ausgabe der 'gezogenen' Karte. 


Nachkaufen von Karten 

Die Zeilen 2000 bis 2430 beschäftigen sich mit dem Nach¬ 
kaufen von Karten. Die Karten werden in Zeile 2030 durch¬ 
numeriert, und im folgenden wird das Kapital angezeigt und 
gefragt, ob neue Karten gezogen werden sollen oder nicht. 
Die Zeilen 2060 bis 2090 beinhalten eine Plausibilitäts¬ 
prüfung mit entsprechender Verzweigung aufgrund oben ange¬ 
führter Abfrage. 

Als Nächstes wird gefragt, wieviele Karten nachgekauft 
werden sollen (falls oben ein 'j‘ eingegeben wurde). An¬ 
sonsten wird das Programm bei der Gewinnermittlung fort¬ 
gesetzt. In Zeile 2150 wird geprüft ob zwischen '1' und 
'4' Karten nachgezogen werden sollen. Wie üblich ist die 
Ziehung eines kompletten neuen Kartensatzes nicht möglich. 
In Zeile 2140 wird noch das Kapital um die Einheiten ver¬ 
ringert, wie auch die Anzahl der gezogenen Karten beträgt. 
Soll der Computer keine Strafe für Falscheingaben berech¬ 
nen, so sind die Zeilen 2140 und 2150 zu vertauschen. 

In den Zeilen ab 2160 werden entsprechend Karten nachgezo¬ 
gen. Die gezogenen Karten werden natürlich mit den bereits 
am Bildschirm angezeigten und auch eventuell bereits nach- 
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gezogenen Karten verglichen, ob der Computer nicht 'schum¬ 
melt'. In den Zeilen ab 2270 wird abgefragt, welche Karten 
der zuerst gezogenen ersetzt werden sollen. Dies geschieht 
durch einfaches Drücken der entsprechenden Zifferntasten 1 
- 5 ( ohne RFTIJRN, da eine GEI-Abfrage eingebaut ist). Die 
Zeile 2330 enthält eine Plausibilitätsprüfung, daß keine 
Ziffern größer als fünf eingegeben werden dürfen. Im wei¬ 
teren werden die entsprechenden Karten ausgetauscht (Zei¬ 
len 2370 und 2380) und ausgegeben (Zeile 2390 bis 2410). 


Auswertung der gezogenen Karten (mit Nachkaufen) 

- Flush 

In den Zeilen 3040 bis 3090 wird abgeprüft ob ein soge¬ 
nannter Flush vorliegt, der bekanntermaßen aus fünf Karten 
in der gleichen Farbe besteht. Da die Kartenfarbe intern 
im System durch Zahlen dargestellt wird (2.Element der 
Matrix KA(,), muß festgestellt werden, ob diese Elemente 
bei allen Karten gleich sind. Aus Rechenzeitgründen wird 
sofort auf das Prüfen der Straße gesprungen sobald zwei 
paarweise verschiedene Karten auftreten. 


- Straße 

Aus unsortierten Karten festzustellen ob eine Straße vor¬ 
liegt, ist ein schwieriges Unterfangen. Einfacher wird es, 
wenn man die Kartenhöhen in Ihrer Reihenfolge entsprechend 
sortiert, dazu wird ein einfaches Sortierverfahren (MIN¬ 
SORT) herangezogen, was die Kartenhöhen in auf steigender 
Reihenfolge sortiert (1.Element der Variablen KA(,) ). 
Mehr über Sortierprogramme finden Sie in 'Basic ohne Pro¬ 
bleme' Band 3 Kapitel 1.4.5. 

Nachdem die Karten in auf steigender Reihenfolge sortiert 
sind, muß abgeprüft werden, ob eine Straße vorliegt. Dies 
ist nicht der Fall, wenn der Wert der ersten Karte um eins 
erhöht verschieden vom Wert der zweiten Karte ist bzw. die 
gleiche Aussage bei den Kartengruppierungen 2./3., 3./4. 
und 4./5. Karte auftritt. Da es aber auch eine Straße mit 
10, Bube, Dame , König und As gibt, das As aber den Wert 
'1' hat, muß noch gesondert abgeprüft werden, ob die erste 
Karte ungleich eins ist. 

Die höchste Straße (10 bis As) liegt also vor, wenn in der 
sortierten Matrix KA(,) das erste Element eine '1' enthält 
und die Elemente zwei bis fünf die Werte '10' bis '13'. In 
diesem Fall wird der Merker für die höchste Straße (EIS) 
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auf '1 1 gesetzt. 

- Royal-Flush 

Ein Royal-Flush liegt dann, und nur dann vor, wenn die 
höchste Straße vorliegt und zugleich ein Flush (10 bis As 
in der gleichen Farbe). 

Liegt jetzt bereits eine Gewinnauswertung (Straße, Flush 
oder Royal-Flush) vor, so wird die weitere Auswertung 
übersprungen und gleich zur Feststellung der Gewinnsumme 
übergegangen. 

- Vierer (Vier 1 ing,Four of a Kind) 

Da in diesem Stadium auf jeden Fall die Kartenhöhen sor¬ 
tiert sind, braucht für einen Vierling nur noch festge¬ 
stellt zu werden, ob die Kartenhöhe der ersten Karte 
gleich der vierten Karte bzw. der zweiten Karte gleich der 
fünften Karte ist. In diesem Falle wird die Variable VI 
als Flag (Merker) mit '1' besetzt. 

- Drilling (Dreier,Three of a Kind) 

Etwas komplexer als beim Vierer liegt die Sache beim Dril¬ 
ling. Hier müssen die Kartengruppen 1/3 bzw. 2/4 bzw. 3/5 
gleich sein. Durch die sortierte Vorgabe ist damit gleich 
eingeschlossen, daß die Karten 2 bzw. 3 bzw. 4 auch die 
gleiche Höhe aufweisen. Etwas vorausschauend gedacht wird 
in der Variablen DR nicht nur abgespeichert ob ein Dril¬ 
ling vorhanden ist oder nicht, sondern auch die Lage in¬ 
nerhalb dieser sortierten Reihenfolge. Dies ermöglicht uns 
eine einfacherere Feststellung beim 

- Full House 

Naturgemäß kann ein Full House (Drilling plus Zwilling) 
nicht mehr dann vorliegen, wenn innerhalb der sortierten 
Reihenfolgen die Karten zwei, drei und vier gleich sind. 
Prinzipiell ist dann kein weiterer Zwilling mehr möglich. 
Deshalb wird die Variable DR nur noch abgeprüft, wenn eine 
'1' oder '3' vorliegt. In diesem Falle müssen entweder die 
Kartenhöhen 4/5 (für DR=1) oder Kartenhöhen 1/2 (für DR=3) 
übereinstimmen. 

Liegt ein Drilling oder ein Full House vor, so wird die 
Auswertung ob ein bzw. zwei Paare vorliegen übersprungen. 
Ein Sprung zur Gewinnauswertung sofort nach dem Drilling 
ist nicht ratsam, da aus einem Drilling ja noch immer ein 
Full House werden kann. 
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- Zwei Paare 

Auch hier ist die sortierte Reihenfolge der Kartenhöhen 
wieder von Vorteil, es müssen jeweils die möglichen Kar¬ 
tengruppen 1/2 mit 3/4 bzw. 1/2 mit 4/5 bzw. 2/3 mit 4/5 
überoprüft werden. Liegen zwei Paare vor, so kann man auch 
die Prüfung auf ein Paar überspringen. 

- Ein Paar (Zwilling) 

Für ein Paar müssen lediglich die Kartenhöhe der Paare 
1/2, 2/3, 3/4 und 4/5 auf Gleichheit geprüft werden. 


Gewinn feststellen 

In Abhängigkeit von den in den Zeilen 3000 bis 3500 ge¬ 
setzten Flags wird nun eine Bildschirmmeldung nach der Art 
des Gewinns in den Zeilen 4030 bis 4130 ausgegeben. Eine 
Änderungsmöglichkeit für den Leser besteht darin, eine 
einzige Variable, nennen wir sie G, mit den Werten '1' bis 
'10’ entsprechend der Gewinnhöhe vorzubesetzen und dann 
mit einem 'ON G GOTO'-Befehl eine Verzweigung durchzufüh¬ 
ren, die nicht so viel Rechenzeit beansprucht, wie die 
derzeit programmierte mit den verschiedenen IF-Abfragen. 
Man kann sich auch überlegen, wenn die IF-Abfragen in den 
Zeilen 4040 bis 4120 in umgekehrter Reihenfolge program¬ 
miert werden, ob dies eine Rechenzeitersparnis bringt. 

In der Variablen GE wird nach jeder Ausgabe der Gewinn 
festgelegt. Wer sich eine Spielbeschreibung für andere An¬ 
wender erstellen will, kann hieraus auch die Gewinntabe1 le 
ablesen. 

Anschiießend wird noch eine Meldung ausgegeben, daß sich 
das Kapital um 'GE' Punkte vermehrt hat, die Kapitalsum¬ 
mierung durchgeführt, und der neue Kapitalstand ausgege¬ 
ben. 


Spielende / Abschluß 

Ab Zeile 5030 fragt der Rechner ob ein weiteres Spiel 
durchgeführt werden soll. Wenn ja, wird wieder auf Zeile 
1140 gesprungen, wenn nein, wird in Abhängigkeit vom er¬ 
reichten Gewinn, eine kurze Meldung des Rechners ausgege¬ 
ben. 

Es wird immer wieder festgestellt, daß gerade diese - pro¬ 
grammtechnisch doch so einfach zu erstellenden - Meldungen 
die größte Resonanz heim Publikum finden. Rechner mit 
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künstlicher Intelligenz? Nein - einfachste Programmierung! 

Oer Ablauf der Zeilen 10000 bis 15320 ist in Kapitel 2.1 
beschrieben. Das Karten positionieren ab Zeile 20000 ist 
auch einfach, da jeweils nur eine Zeichenreihe aus 'Cursor 
nach rechts' ausgedruckt wird, der noch ein 'HOME' voran¬ 
gestellt ist. Um die Karten nicht zu sehr an den oberen 
Bildschirmrand zu bringen, wurde auch noch ein 'Cursor 
nach unten' eingefügt. Obwohl die Karten nur sieben Zei¬ 
chen breit sind wird der Cursor jeweils um acht weitere 
Stellen nach rechts geschoben, um die Karten nicht zu 
dicht nebeneinander liegen zu lassen Lind auch den ganzen 
Bildschirm bis zum rechten Rand auszufüllen. 

Wenn Sie immer gegen Ihre Mitspieler gewinnen wollen (Ka¬ 
pitalmäßig) so sorgen Sie beim Nachkauf dafür, daß Sie mö¬ 
glichst einen Flush bzw. Royal-Flush bekommen. Die Wahr¬ 
scheinlichkeit hierfür ist am größten, wegen der oben be¬ 
schriebenen Kartenauswahl, die ja kein eigentliches Mi¬ 
schen ist. Der geneigte Leser kann sich zusätzlich zu dem 
oben beschriebenen Vorschlag zum Mischen von Karten noch 
überlegen, wie dieser Fehler behoben werden kann. Viel¬ 
leicht durch ändern der Multiplikatoren '13' und '4' in 
den Zeilen 1280 und 1290 in entsprechend vorbesetzte Va¬ 
riablen, die vielleicht auch nicht ganzzeilig sein müssen. 


Weitere Ergänzung 

Spielern ist es sicherlich schon aufgefallen: der Straight 
Flush fehlt. Bauen sie ihn analog zu den anderen Gewinnen 
ein! Wann liegt bei den vorgegebenen Daten ein Straight 
Flush vor? Welche Auswertungen können übersprungen werden, 
wie ist der Gewinn einzuordnen? 


! POKER 

i 


1000 - 20510 ! 

i 

! Variablen: ! 

j ! 

• _ i 

! Name ! lyp 

! Bereich 

! Bedeutung 

! A ! P 

! A$ ! H 

{ ! 

! B ! H 

! 1 ... 13 

! 1 Zeichen 

j 

! 1. . .5 

! Kartenhöhe für Ausgabe 
! zum Einlesen von der 
! Ta s ta t ur 

! aktuelle Nummer einer 
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i 

! neuen K a r t e 

DR 

! G 

! 0,1,2,3 

! Merker 

für Drilling 

F:| 

! P 

! Schwarz,Rot.. 

! KartenFarbe f. Ausgabe 

FL 

! G 

! 0,1 

! Merker 

für Flush 

FU 

! G 

! 0,1 

! Merker 

für Full House 

U 

! 11 

! 1 ... 1.3 

! HV für 

Sortieren 

ns 

i G 

! 0,1 

! Merker 

für höchste 


j 

j 

! Strasse 

i 

! H 

! Integer 

! Kartennummer 

.1 

! II 

! I n t e g e r 

! Laufvariable 

K 

! 1-1 

! Integer 

! Laufvariable 

K$ 

! P 

! Kreuz,Pik,... 

! Kartenart für Ausgabe 

KA 

! G 

! Integer 

! Spielkapital 

M 

! II 

! Integer 

! Laufvariable 

MI 

! H 

! Integer 

! HV für 

Sortieren 

N 

! G 

! 0. ..4 

! Anzahl 

neuer Karten 

PI 

! G 

! 0,1 

! Merker 

für ein Paar 

P2 

! G 

! 0,1 

! Merker 

für zwei Paare 

RF 

! G 

! 0,1 

! Merker 

für Royal Flush 

S 

! G 

! 0,1 

! Merker 

für Strasse 

VI 

! G 

! 0,1 

! Merker 

für Vierling 

WO 

! H 

! 1 . . .5 

! HV für 

Sortieren 


Felder (Arrays): 


Name 

! 

Dirnen. 

! 

Typ 

! 

Bereich 

! Bedeutung 

ARS 

j 

1... 13 

! 

r* 

o 

! 

A,1,...,D,K 

! Kartenhöhe 

NE 

! 

j 

0. . .4 

j 

! 

G 

! 

! 

1... 5 

! Nummer der neuen 
! Karten 

KA 

! 

j 

1... 5/ 

1. . .2 

j 

! 

G 

j 

! 

1. . . 13,1. . .4 

! gezogene Karten 

NA 

! 

i 

1... 5/ 

1. . .2 

! 

j 

G 

! 

j 

1. . .13,1. . .4 

! nachgezogene 
! Karten 


Unterprogrammaufrufe : 


i n 

nach 

Zweck 




1270 

20100 

Positionieren 

für 

1. 

Karte 

1270 

20200 

Po s i tionieren 

für 

2. 

Karte 

1270 

20300 

Positionieren 

für 

3. 

Karte 

1270 

20400 

Positionieren 

für 

4. 

Karte 

1270 

20500 

Positionieren 

für 

5. 

Karte 

1330 

10000 

Karte ausgeben 
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! 2390 ! 

20100 

! Pos i tionieren 

für 

1. 

Karte 

= = | 

! 2390 ! 

20200 

! Positionieren 

für 

2 . 

Karte 


! 2390 ! 

20300 

! Pos i t ionieren 

für 

3. 

Karte 


! 2390 ! 

20400 

! Positionieren 

für 

4. 

Ka r te 


! 2390 ! 

20500 

! Po s i t ionieren 

für 

5. 

Karte 


! 2410 ! 

10000 

! Karte ausgeben 





! j 

i 


! ab Zeile 10000 

vergleiche Kapitel 2.1 


! Verzweigungen 

i 

nach außen : 





! i n Ze 

i 

! nach 

! Bedingung 


J 

Bemerkung 

1 

! keine ! ! ! ! 

1 ---------1 


2.3 Balkendiagramme ohne hochauflösende Grafik 


Das Ergebnis irgendwelcher Berechnungen sind sehr häufig 
Zahlenkolonnen, die für sich selbst', natürlich nicht an¬ 
schaulich sind. Aus diesem Grunde greift man immer wieder 
auf Diagramme zurück. Dies können Euler-Diagramme, Torten¬ 
grafik, Kurven oder auch Balkendiagramme sein. Auf dem 
Commodore 64 lassen sich Ba]kendiagramme mit ausreichender 
Auflösung auch ohne die hochauflösende Grafik darstellen. 
Dies hat den Vorteil, daß sehr einfach Text und Grafik ge¬ 
mischt werden können, da die hochauflösende Grafik von 
Hause aus keine Ausgabe von Text gestattet. 

Wie auch bei den anderen Commodore-Gcräten der Serie 2000 
/ 3000 / 4000 und 8000 hat auch der Commodore 64 in seinem 
Grafikzeichensatz die Zeichen, die für eine hohe Auflösung 
bei Balkendiagrammen benötigt werden. Im Prinzip läßt sich 
ein Balkendiagramm aus lauter Reverse-Leerze ichen darstel¬ 
len, bei dem Commodore 64 erhält man auf diese Weise, bei 
voller Ausnutzung des Bildschirms für die Diagramme, eine 
Auflösung von horizontal 40 Zeichen und vertikal 24 bzw. 
25 Zeichen. Dies ist für eine genaue Darstellung natürlich 
nicht ausreichend. 

Ein Zeichen am Commodore 64 besteht aus 64 einzelnen Punk¬ 
ten die in einer 8x8 Matrix angeordnet sind. Durch die 
Grafikzeichen ist man nun in der Lage von diesen 8 x 8 
Punkten jeweils die untersten acht, die untersten sechzehn 
usw. a nzti spreche n, sodaß man im Prinzip das Zeichen ze i- 
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lenweise zerlegen kann. Selbiges gilt auch für die linke 
Spalte, die zwei linken Spalten usw. in der Zeichenmatrix. 
Dadurch läßt sich für den Commodore 64 eine Auflösung bei 
Balkengrafiken von maximal 200 bei vertikaler Darstellung 
und 320 bei horizontaler Darstellung erreichen, wie es 
auch die hochauflösende Grafik könnte. 

In den folgenden vier Unterkapiteln wollen wir die Mög¬ 
lichkeiten für ein vertikales und horizontales Balkendia¬ 
gramm aufzeigen, sowie ein Programm zur Relativierung der 
Werte in den Balkendiagrammen und ein Programm zum frei 
definierbaren Einzeichnen von Balken im Bildschirm. 


2.3.1 Vertikale Balkendiagramme 


Übungsziel: 

- grafische Zeichen benutzen 

- IF-Abfragen 

- Farbgebung 

- Balkendiagramme 


Listing siehe nächste Seite 

In diesem Kapitel wird ein Beispielprogramm für vertikale 
Balkendiagramme vorgestellt, das sich selbst immer wieder 
aufruft und die Balkenhöhe jeweils per Zufallszahl bestim¬ 
mt. Die Farben werden der Reihe nach vom Computer immer in 
der gleichen Reihenfolge (8 verschiedene Farben) vergeben. 
Zunächst setzen wir die Bildschirmhintergrundfarbe und die 
Farbe für den Rand auf schwarz, und die Farbe der Schrift 
auf gelb. Da bis zu 40 Balken nebeneinander gedruckt wer¬ 
den können, dimensionieren wir ein Feld A(40) zur Aufnahme 
der Balkenhöhe. Im weiteren werden zwei Zeichenreihen mit 
Cursors t.euerf unk 1. innen besetzt: CR$ Für Cursor nach rechts 
mit der länge 40 und CD$ für Cursor nach unten (Cursor 
Down) mit 25 Zeichen Länge. Dann wird der Bildschirm ge¬ 
löscht und zwei 11 i1fsvariab 1en (S für Spalte / Z für Zei¬ 
le), die das unterste Zeichen des jeweiligen Balkens am 
Bildschirm angeben werden, bestimmt. 

Die Positionierung des Cursors zum Zeichnen des jeweiligen 
Balkens erfolgt in dem Unterprogramm ab Zeile 1000, wobei 
dort zunächst der Cursor in die 'HOME'-Position gebracht 
wird (oben links am Bildschirm) und anschließend für die 
Anzahl der Spalten nach rechts und für die Anzahl der Zei¬ 
len nach unten bewegt wird. Ln dein Be i sp ie 1 programm begin¬ 
nen die Balken jeweils in Zeile 19, da die beiden darun¬ 
terliegenden Zeilen noch für eine Indizierung vorgesehen 



Balkendiagramme 


69 


1 @0 P0KE532y0... 0 
110 P0KE53281,0 
120 PP INT "El 
130 DIMR<401 
140 CR*="U" 

150 CD*="H" 

160 F0RI=1T06 
170 CR*=CR*+CR* 

180 CD$=CCi*+C D * 

190 HEXT 

200 CR*=LEFT*<CR*,40> 

210 CD*=LEFT*CCD*,25 > 

220 PRIHT"3" 

238 3—0 

240 2—22 

250 GOSUB1000 

260 PRI NT"0000080001111111111222222222233333333334"; 
270 PRI NT"1234567890123456789012345678901234567890" 
280 FÜRI=1T040 
290 RCI> = INTCRND<8 > *16©> 

300 REM RCI> = I 
310 NEXT 
320 FÜRI=1T040 
330 F=F+1 

340 I FF= 1 THENF'R I NT " SS 
350 I FF=2THENPRINT" 13 
360 IFF=3THEMPRINT"3 
370 I FF=4THENPR I NT " fl 
380 1 FF=5THENPR I NT " (jJ 
390 IFF= 6 THENPRINT"a" 

400 IFF=7THENPRINT"3" 

410 I FF = 8 THENPRINT"R" :F=0 

420 S—I—1 

430 Z=19 

440 GOSUB1000 

450 IFRCI»= 8 THENPRINT"a IG"r:RCI>=RCI 1 - 8 :GOTÜ450 
460 IFRCI>=?THENPRINT"a“IG"; 

470 I FR CI> = 6 THENPRINT"a“|G" J 
480 I FR C 11 =5THENPR I NT " SIG" ; 

490 IFRC I >=4THEHPRINT"ÄJD" ; 

500 IFRC I >=3THENPRINT"UO" t 
510 IFR CI> =2THENPR I NT "B_IG"; 

520 IFRC I> = 1 THENF'RINT"■ in" r 
530 NEXT 

540 F Ü RI = 1T 010 Ü 0 0 
550 NEXT 
560 RIJN 

1000 PR INT " ä" rLEFT* CCR*,S1LEFT*C CD* , 2 > ; 

1010 RETURN 

60000 SR VE " iS : BR LKENV " , 8 
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sind. In der Schleife von Zeile 280 bis Zeile 310 werden 
die Zufa 11 szah len für die Balkenhöhe generiert. Setzen Sie 
Zeile 290 auf Kommentar mit einem REM, und löschen Sie das 
REM in Zeile 300, so erhalten Sie die grafische Darstel¬ 
lung einer Treppe. In den Zeilen 320 bis 530 befindet sich 
die FOR...Next-Schleife zur Ausgabe der Balken. Zunächst 
wird jeweils der Farbparameter (F) um eins erhöht und die 
entsprechende Farbe durch einen Steuerbefehl anhand einer 
IF-Abfrage eingeschaltet. Ist die letzte Farbe erreicht, 
so wird der Farbparameter wieder auf '0' gesetzt. An¬ 
schließend wird die Spaltenzahl um eins erhöht und der 
Cursor neu positioniert. 

Die folgenden acht Zeilen beinhalten die eigentliche Aus¬ 
gabe der Balken, wobei die vertikalen Balken von unten 
nach oben ausgegeben werden. Es werden so lange Reverse- 
Leerzeichen ausgegeben, bis der entsprechende Wert in dem 
Feld A() unter '8' sinkt. Dann wird anhand der IF-Abfragen 
als letztes Zeichen eines der Grafikzeichen ausgegeben, 
das mit seiner Zeilenzahl in der Zeichenmatrix mit dem 
Restwert in der Variablen A() übereinstimmt. Nach Ausdruck 
aller vierzig Balken wird eine Warteschleife durchlaufen 
und das Programm neu gestartet. 


BALKENV 


10 - 1010 


Variablen: 


Name 

1 

Typ 

! Bereich 

! Bedeutung 

CD$ 

j 

H 

! 25 Zeichen nur 

! 'Cursor nach unten' 

CR$ 

! 

H 

! 40 Zeichen nur 

! 'Cursor rechts' 

F 

! 

H 

! 0. . .8 

! Farbwert 

I 

! 

! 

H 

! 1...6 / 

! 1 . . .40 

! Laufvariable 
! 

S 

! 

! 

P 

! 0... 39 
! 

! Spalte zur Cursor- 
! positionierung 

z 

j 

j 

. P 

! 0...24 

! Zeile zur Cursor- 
! positionierung 
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Felder (Arrays) 

’ 


Name ! Dirnen. ! 

Typ ! Bereich 

! Bedeutung 

A ! 1..40 ! 

P ! 0 ... 160 

! Balkenhöhe 

Unterprogrammaufrufe : 

in ! nach ! 

Zweck 


250 ! 1000 ! 

Cursor positionieren 


440 ! 1000 ! 

Cursor positionieren 


Verzweigungen nach außen : 

in Ze ! nach ! 

Bedingung ! 

Bemerkung 

keine! ! 

! 



2.3.2 Horizontale Balkendiagramme 


Übungsziel: 

- grafische Zeichen benutzen 

- IF-Abfragen 

- Farbgebung 

- Balkendiagramme 


10 Pül<E53a80..0 
20 F'OKEISS281,0 
SO PKXMT"Gl 
100 (. 11 MR 24,' 

110 CR:f-" M" 

128 CD$="H" 

I ‘ i FORI = 1106 
.! 40 i Ri -l Pl+L l-'f 
1' :. O i . D t C D 3 -1 C D $ 

J80 HEXT 

i ,’8 CI-'t^LRFT t ' LR$ , 40 • 
1 ft i,i i 0)0-1 El i f 'Mi { , ■ 
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190 PRINT 
250 FÜR 1 = 1 TOS:4 

260 REM H C I = I NT < RHD < 8 > *320 > 

261 HC 1.3 = 1*14 
270 HEXT 

2W0 FüRI = 1 TU24 

281 F=F+1 

282 I FF= 1 THENF'R I NT "fl 
28:3 I FF =2THENF'R I NT'" fl 

284 IFF=3THENPRINT"£ 

285 I FF=4THENF'R I NT " ii 

286 I FF=5THENPR I NT " ij 

287 I FF=6THEHPR I NT " 13" 

288 I FF=7THENPR I NT " .3" 

289 IFF--8THENPRI NT " IE" :F=0 
300 2=1 

31 Ei G 0 SIJ B10 0 0 

320 I FR< I >>=8THENPR INT" 13 " ; :H C I > =HC I >-8 ;GOTO320 
330 I FH < I > =7THENPR I NT " 3 I" P 
340 I FH <: I=6 THENF'R I NT ” ,;3 I"; 

350 IFR< I > =5THENF'RI NT" S I" ; 

360 I FR < I > =4THENF'R I NT " H " ; 

370 I FR < I > =3THENPRI NT " ü " 

3:30 I FR C I > =2THEHF : 'R I NT " 9 " “ 

390 I FR < I > = 1 THENF'R I NT " H " ; 

400 HEXT 

41@ F O RI = 1T010000 
420 NEXT 
430 RUN 

1000 F'R I NT " g|" ; LEFT$ < CRT.. S > ; L.EFTT C CDTZ :• 

1010 RETURN 

60000 SR'v'E "0 : BRLKENH " .. 8 


Ähnlich wie bei den vertikalen Balkendiagrammen verläuft 
das Programm für die horizontalen Balkendiagramme auch, so 
daß wir an dieser Stelle nur auf die Änderungen eingehen 
werden. 

Zunächst ist die Anzahl der Balken statt auf 40 auf 24 zu 
begrenzen, sodaß dem Feld A() nur 24 Werte zugewiesen wer¬ 
den können. Dies hat Einfluß auf die Dimensionierung des 
Feldes, auf die FOR.. Next-schleife zum Besetzen des Fel¬ 
des mit Zufallszahlen und auch auf die Anzahl der Balken, 
die ausgegeben werden. 

Auch hier werden beim eigentlichen Ausdruck der Balken für 
jeweils acht Einheiten Reverse-Leerzeichen gedruckt und 
nur das letzte Zeichen des Ba lkend iagrammes besteht aus 
einem grafischen Zeichen. Im Gegensatz zu den vertikalen 
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Balkendiagrammen müssen hier jedoch anhand cies Bestwertes 
in A() die Spalten in der Ze iciiemnatr ix von links abge¬ 
zählt we r d e n. 


BALKENH 


10 - 1010 


Variablen: 


Name 

J 

Typ 

! Bereich 

1 

Bedeutung 

CD$ 

! 

H 

! 25 

Zeichen nur 

| 

'Cursor nach unten' 

CR$ 

j 

H 

! 40 

Zeichen nur 

! 

'Cursor rech t s' 

F 

! 

H 

! 0. . 

.8 

! 

Farbwert 

I 

1 

H 

! 1 . . 

.6 / 

! 

[„auf var iab le 


! 


! 1 . . 

.24 

i 


S 

j 

P 

! 0 

(im Beispiel) 

| 

Spalte zur Cursor- 


! 


! 


j 

Positionierung 

z 

i 

P 

! 0. . 

. 24 

| 

Ze i le zur Cursor- 


j 


! 


! 

positionierung 


Felder (Arrays): 


Name 

! Dirnen. 

■ Typ ! 

! Bereich 

! Bedeutung 

A 

! 1..24 

! P 

! 0...320 

! Balkenlänge 


Unterprogrammaufrufe : 


in ! nach ! 

Zweck 

310 ! 1000 ! 

! Cursor positionieren 

Verzweigungen 

nach außen : 

in Ze ! nach 

! Bedingung ! Bemerkung 

keine ! ! ! 
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2.3.3 Relativierung der Ausgabewerte 


Übungsziel: 

- Optimierung von Balkendiagrammen 


100 z=4ö 
110 M=32G 
130 DI MR Z > 

14 0 G 0 SIJ B 2 6 0 

160 MR=0sFÜRI = 1TOZ : IF MAC fl<I>THENMfi=R < I> 
170 HEXT 
190 DI=MR/M 

210 FORI = 1 TOZ : fl C I > = I NT C R < I >, 'D I > :HEXT 

250 END 

260 FOR1=1TOZ 

270 R < 0 = 1N T f. R H D < 0 ':>:+10000 > 

230 HEXT 
290 RETURN 


Dieses kurze Programmstück dient zum Anpassen der anfal¬ 
lenden Daten an die Bildschirmauflösung. Dies ist von Vor¬ 
teil, wenn die anzuzeigenden Daten sehr groß oder sehr 
klein sind. Kleine Zahlen werden derart gespreizt, daß der 
größte Wert über die volle Bildschirmbreite bzw. Höhe geht 
und größere Daten werden derart zusammengezogen, daß eben¬ 
falls der größte Wert auf die größte Bildschrimausdehnung 
gebracht wird. 

Dies reicht aus, da in der Regel ja nicht die effektiven 
Zahlenwerte interessant sind, sondern nur das Verhältnis 
der Werte zueinander, was bei dieser Vorgehensweise be¬ 
stehen bleibt. 

In Zeile 100 wird die maximale Zahl der Balken angegeben 
und in Zeile 110 die maximale Auflösung. Wenn Sie das 
Programm im Zusammenhang mit dem Programm aus 2.3.1 oder 
2.3.2 benutzen, so entfällt die Zeile 130. Bei vorgegebe¬ 
nen Zahlen ebenso die Zeile 140, die nur für den Testfall 
benötigt wird. Im weiteren wird zunächst das Maximum ge¬ 
sucht und dann der Divisor für alle Werte berechnet. Zum 
Abschluß werden noch alle Werte mit Hilfe des erhaltenen 
Divisors umgewandelt. 
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2.3.4 Frei programmierbare vertikale Balken 


Übungsziel: 

- frei handhabbare Balken 

- programmieren mit zwei logischen Variablenebenen 
(normale Variablen und tätigkeitsbeschreibende 
Variablen) 

- Farbumscha ltung 

- Cursorpositionierung 


1 00 

J#OK EC 

9280 .. 

0 




l 1 0 

F'ÜKFS 

323 1 

0 




1 26 

PR IH1 

" :üi 





1 30 

Uh 1 A3 

4 . 1 2 .. 

9 0 , i 

1 . ' . 


.00 .. 5.4 r 5 70 • 

1 40 

DR 1H .1. 

40,. 14 

. 5 ... i 

:• 1 .• 

..Li 

1 "r , 4.5 30 , i. p 

:i. 5Ö 

DRT fl 1 

30 .. 24 

. . • 

i ' 

"«Li 

25,4 ,5 23' 0.26 

1. 00 

DRTFi'J 

D .. 34 . 


. 50 

3* 

.«, 4 r ':.:«. :?0.36 . 

1 70 

CP*-." 

M" 





1.30 

CD*-" 

et 





1.90 

1- OR 1 = 

I T OE 





200 

CR* 

P* RTF 

* 




210 

CD* - C 

d*+ci: 

* 




220 

he:-: t 






230 

CR 

EFT t i 

CR* 

. 40 

■ 


24 0 

CD* -L. 

EFT* ■ 

CD* 

, 25 



250 

RR I MT 

i ■ "••! 11 





260 

RRTlD.: 

: C 

! 1-1 

1 i-lPi 

i r 

■ er .131 IN [CT T: 1 ' 

270 

FEHDE 

H : R 

ETI 

HRl 

n 

'1,1 f 1-V 1 Ei 1 i :HI. 

230 

HT MH'' 

13 H < 





2 90 

D [ ms ■: 

BH ' 





:30h 

n s hi 

PH 





3 -1 0 

0 1 MB 

BH ■ 





320 

Ei TR' 1 

1 1 HRP 





330 

REH Dl 

1 • : 1- 

E M 

[DPI 

JT 

'DDEHf- " .• Ei' !. > 

340 

REH DE 

' t •' D-: 

EM 

LI IPi 

i r 

• Ri ii.. 1 EC 1 

350 

FEHDE 

< :i .■ - R 

RH 

DPI 

1 1 

1 1 :RE ITC " rP - .1 • 

330 

00104 

40 





j 70 

PR T M T 

" 1 .. 

“4-11 

: : 13: 



380 

PR 1II 1 

'' 2 

5Ht 

:li i 

?:ü‘ 


390 

PR TI I I 

" :• 

T 1 

JE" PI 

: D 
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400 PRINT" 4 - iiGRUEH 

410 PRINT" 5 - 5JGELB 

420 PRINT" 6 - SB LAU 

430 PRINT" 7 - 30 RANGE 

440 READF< I > : REM I HF'IJT"FARBE " ; F < I > 

450 NEKT 
460 PRINT"3" 

470 FÜR1=1TOBA 
480 S=S<I> 

490 H=H< I 
500 B=B <: I > 

510 F=- FI > 

520 GOSUB550 

530 NEKT 

540 GOTO780 

550 I FF= 1THENPRI NT " a| 

560 I FF=2THENPR I NT " iS 
570 I FF=3THENF'R I NT " w 
5 S 0 IFF=4THENPRIHT"jjJ 
530 I FF =5THENPRI NT "Ü3 
600 IFF=6THENPRINT"H 
610 I FF=7THENPR I NT " 3 
620 I FF =8THENFRI NT"ffi" 

630 G 0 SIJ B10 0 0 
640 A=H 

650 IFfl>=3THENPRI NT"3 ID"; :A=A-8:GOTO650 
660 I FA=7THEHF'R I NT " SHIC" ; 

670 I FA=6THENF'R I NT" JSTIO" ; 

680 IFA=5THENPRINT" STIO"; 

690 I FH=4THENPR INT " BMC" ; 

700 I FA=3 THENPR: I NT " UD" ; 

710 I FA=2THENPRI NT " i,JO" i 
720 I Ffl=1 THENP R I NT " 1 i n":' 

73© M---M fl : I FN=BTHENM=e s RETURN 
740 IFM=BT HENM=0 : RETURN 
750 S=S+1 : PRINT : G0T0630 
760 PF: I NT j G0TOS30 
770 GOTÜ630 

780 GEI A4 :IFH*=""THEN730 
790 I FH-t= " " THEN780 
800 RUN 

1000 PR INT "g|" .?LEFT*<CR*,S> ;LEFT*<CD#..2> ; 
1010 RETURN 

60000 SAVE " @ : BALKENALL." , 8 


Das Programm ;um Setzen einzelner Balken mit verschiedener 
Breite Lind wahlweiser Spaltenpositionierung auf dem Bild¬ 
schirm verläuft im Prinzip analog den in den Kapiteln 
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2.3.1 und 2.3.2 vorgestellten Programmen. Lediglich das 
Unterprogramm zum Drucken dei' Balken ist nun für einen 
einzigen Balken geschrieben. Aber gehen wir der Reihe 
nach : 

In den Zeilen 130 bis 160 wurden einige DAIA-Zeilen gene¬ 
riert, die die benötigten Baten Tür einen Testausdruck be¬ 
inhalten. In der Regel wird man die Daten direkt über 
Bildschirm eingeben oder von einem größeren Programmkom¬ 
plex zu Verfügung stellen und das vorliegende Programm nur 
als Unterprogramm aufrufen. Damit man die Möglichkeiten 
des Programmes besser austesten kann, ist es jedoch ein¬ 
facher die benötigten Variablen in DATA-Zeilen zu schrei¬ 
ben, die jeweils leicht zu ändern sind. Dies wird im spä¬ 
teren Programm auch berücksichtigt. 

Zunächst werden wie in den beiden anderen Programmen auch 
die beiden Variablen zum Positionieren des Cursors be¬ 
setzt, dann wird die Grundzeile, auf der die Balken posi¬ 
tioniert werden sollen, eingelesen. In der Bemerkung steht 
die komplette Zeile, falls die Daten am Bildschirm erfaßt 
werden sollen. Als nächstes wird die Anzahl der' Balken, 
die ausgegeben werden sollen, eingelesen und auf Grund 
dieser Variablen (BA) werden die Felder zum Abspeichern 
der Höhe, der Spalte, der' Farbe und der Breite der einzel¬ 
nen Balken dimensioniert und in einer Schleife anschlies¬ 
send die Variablen eingelesen. Auch hier stellt in der Be¬ 
merkung wieder die komplette Zeile für die Erfassung vom 
Bildschirm. Die Zeilen 370 bis 430 werden in dieser Ver¬ 
sion übersprungen. Sie dienen zur Erfassung der gewün¬ 
schten Farbe, für jeden einzelnen Balken am Bildschirm, 
wobei in diesem Menü der Farbbegriff jeweils auch die Far¬ 
be zugewiesen bekommt. 

Dann wird der Bildschirm gelöscht, und in der folgenden 
Schleife wird der Ausdruck der einzelnen Balken veranlaßt, 
indem den einfachen Variablen S,11,13 und F jeweils die Wer¬ 
te aus dem entsprechneden Feld für den aktuell zu drucken¬ 
den Balken zugewiesen werden und das Unterprogramm zum 
Drucken des Balkens aufgerufen wird. Anschließend wird 
über den GET-Befehl gewartet, bis ein Tastendruck erfolgt, 
und das Programm wird neu gestartet. 

In dem Unterprogramm zur Ausgabe eines einzelnen Balkens 
wird zunächst die Farbe vorbesetzt und daraufhin der Cur¬ 
sor entsprechend an der gewünschten Spalte positioniert. 
Der H i 1 f s variab len A wird der Wert der Höhe (II) zugewie¬ 
sen, und der Druck eines einzelnen Streifens erfolgt ana¬ 
log Kapitel 2.3.1. Dann wird der Merker für die Anzahl der 
ausgegebenen Streifen um eins erhöht. Ist bereits die ge¬ 
wünschte Breite des Balkens erreicht (M=B), wird der Mer- 
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ker zurückgesetzt und das Unterprogramm verlassen. Andern¬ 
falls wird der Cursor eine Spalte weiter positioniert und 
die erneute Ausgabe eines Streifens veranlaßt. 


Änderungen und Ergänzungen 

Nachdem bereits fast alle Werte eines Balkens variabel ge¬ 
halten sind, dürfte es dem Leser nicht schwer fallen, auch 
noch die Grundzeile für jeden einzelnen Balken variabel zu 
halten. Versuchen Sie vielleicht auch mit aufsteigendem 
oder fallendem Z eine Fluchtlinie in Ihr Balkendiagramm zu 
bekommen. Vielleicht versuchen Sie auch bei allen in Kapi¬ 
tel 2.3 vorgeste1 lten Programme alle sechzehn Farben zuzu¬ 
lassen. 

Analog zu dem im letzten Kapitel vorgestellten Programmen 
kann auch versucht werden, horizontale Balkendiagramme in 
dieser flexiblen Art und Weise darzustellen. 


BALKENALL 


10 - 1010 

Variablen: 

1 



! Name 

i Typ 

! Bereich 

! Bedeutung 

! A 

! H 

! Integer 
j 

! Hi 1fsvariable für Höhe 
! des Balkens 

! A$ 

! H 

! 1 Zeichen 

! Warteschleife 

! B 

! P 

! Integer 
j 

! Breite des auszugeben- 
! den Balkens 

! BA 

! H 

! Integer 

! Anzahl der Balken 

! CD$ 

! H 

! 25 Zeichen nur 

! 'Cursor nach unten' 

! CR$ 

! H 

! 40 Zeichen nur 

! 'Cursor rechts' 

! F 

! H 

! 0. . .7 

! 

! Farbe des auszugeben- 
! den Balkens 

! H 

! P 

! 0...160 
j 

! Höhe des auszugeben- 
! den Balkens 

! I 

! H 

! 1...6 / 

! Laufvariable 



! 1...BA 

J 

! M 

! H 

! 1..40 

j 

j 

! ' Laufvariab 1e' für die 

! schon ausgegebene 
! Breite des aktuellen 



i 

! Balkens 












Balkendiagramme 


79 


s 

! P 

! 0...40 

! Spalte des auszugeben- 


! 

! 

! den Balkens 

z 

! P 

! 0...24 

! Grundzeile zur Cursor- 


j 

j 

! positionierung 


Felder (Arrays): 


Name 

! Dirnen. 

! Typ 

Bereich 

! Bedeutung 

H 

! 1 . .BA 

! G 

0... 160 

! Höhe der Balken 

S 

! 1..BA 

! G 

0...39 

! Spalte der Balk. 

B 

! 1 . .BA 

! G 

0 ... 39 

! Breite der Balk. 

F 

! 1..BA 

! G 

0. . .8 

! Farbe der Balken 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


520 ! 550 ! Einen Balken ausgeben 

630 ! 1000 ! Cursor positionieren 


Verzweigungen nach außen : 


in Ze ! nach ! Bedingung ! Bemerkung 


keine ! 
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3. Sprites 


Die vom Commodore 64 gegebene Möglichkeit der Erstellung 
von Sprites, bietet eine sehr einfache Handhabe selbst Fi¬ 
guren zu definieren und diese - ohne Verwendung von Ma¬ 
schinenprogrammen - schnell auf dem Bildschirm zu bewegen. 
Besonders für Spiele ist es interessant, daß Kollisionen 
zwischen Sprites sehr schnell abgefragt werden können. Wir 
wollen im folgenden nach und nach ein kleines Spielpro¬ 
gramm entwickeln, bei dem wir alle Möglichkeiten der Spri¬ 
tes ausschöpfen wollen. Im Handbuch des Commodore 64 be¬ 
schriebene Sachverhalte sollen hier nicht mehr erläutert 
werden, jedoch wollen wir die wichtigsten Sachen noch in 
einer Tabelle zusammenstellen. 


3.1 Sprites definieren 


Obungsziele: 

- Hilfe bei der Erstellung von Sprites 

- Entwicklung von kleineren Programmkonzepten ohne 
Ve rschachte lung 

- Bi1dschirmhandhabung beim positionierten Einlesen 

- Umrechnung von Bits 

- POKE-BeFeh 1 


Will man mit Sprites arbeiten, so müssen diese zuerst de¬ 
finiert werden. Ein Sprite besteht aus einer Matrix von 24 
x 21 Punkten (bei einfarbiger Darstellung, bei mehrfarbi¬ 
ger Darstellung aus 12 x 21 Punkten), die bitweise in 63 
Byte abgelegt sind. Je drei aufeinander folgende Bytes er¬ 
geben eine Zeile eines Sprites. Da das im Handbuch be¬ 
schriebene Errechnen der einzelnen Dezima1zahlen, die in 
die jeweiligen Bytes eingetragen werden müssen, sehr müh¬ 
sam ist, wollen wir zu Anfang ein kurzes Programmstück er¬ 
stellen, mit dem die Sprites sehr schnell erfasst werden 
können. 

Zunächst wollen wir in dem Programm einen dunklen Hinter¬ 
grund wählen mit 


100 POKE 53281,11 
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und einen orangfarbenen II intergrund mit 
110 Pnke 53280,8 

dann müssen wir ein Feld dimensionieren in dem di.e Dezi¬ 
mal zahlen der einzelnen Bytes zwisehenyespe ichert werden 
können mit 

120 IHM BY(63) 

wobei hier das BY Für Byte steht. Anschließend wird mit 
130 PRINT" (CLR/HOME) 

der Bildschirm gelöscht. Mit der Folgenden Schleife wird 
die Matrix Für ein Sprite am Bildschirm mit lauter Punkten 
a usgegebe n: 

140 FÜR 1=1 TO 21 

150 PRINT"." 

160 NEXT 

Wenn Sie jetzt das Programm starten, sehen Sie die stark 
vergrößerte Darstellung eines Sprites. In diese vorgegebe¬ 
nen Punkte wollen wir nun mit Reverse-Leerze ichen unsere 
Darstellung des Sprites einzeichnen. 

Dazu müssen wir zuerst jedoch wieder die aktuelle Ausgabe¬ 
stelle Für den Bildschirm in die linke obere Ecke setzen 
mit dem Befehl 

170 PRINT" (HOME) 

Das ist wichtig, da sonst die Ausgabe bereits in der 

zweiten Zeile des Bildschirms erfolgen würde. Oas Folgende 
mutet für einen unerfahrenen Programmierer vielleicht et¬ 
was undurchsichtig an, ist jedoch ganz einfach aufgebaut. 
Im Prinzip bestellt das kurze Programmstück aus drei in¬ 
einander geschachtelten Schleifen. Die äußere Schleife 
wird 21mal durchlaufen, d.h. einmal für jede Zeile des 
Sprite. Die mittlere Schleife wird dreimal durchlaufen, 
weil je Zeile des Sprites 3 Byte benötigt werden. Oer 
hauptsächliche Rechenvorgang spielt sich in der inneren 
Schleife ab, deren Anweisungen achtmal - einmal für jedes 
Bit des Bytes - durchlaufen wird. Wir erhalten also: 

180 FÜR 1=1 TO 21 

190 FOR 0=1 TO 3 

200 FOR K=1 TO 8 


Zunächst müssen wir in der innersten Schleife, 


die im 
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Prinzip 504mal durchlaufen wird (einmal für jeden Punkt 
des Sprites), zunächst ein Zeichen von der Tastatur ein¬ 
iesen. Dies geschieht in Zeile 

210 GET A$ 

Da der GET-Befehl nicht auf die Eingabe der Return-Taste 
wartet, sondern das Programm gleich fortsetzt, muß eine 
Schleife programmiert werden, die wartet, bis wirklich ein 
Zeichen über die Tastatur eingegeben wurde. Dies geschieht 
mit 

220 IF A$ =" " THEN 210 

Im Folgenden wollen wir festlegen, daß bei Eingabe eines 
“j" auf der Tastatur der Punkt in dem Sprite gesetzt wer¬ 
den soll und bei Eingabe irgendeiner anderen Taste kein 
Punkt gesetzt werden soll. Daraus resultiert: 

230 IF A$= '0' THEN SU = SU+2 (Pfeil nach oben) (8-k) 

240 IF A$= ' J' THEN PRINT"(reverse on) (reverse off)"; 

Damit wird ein farbiges Leerzeichen, das sich vom Hinter¬ 
grund abhebt, auf dem Bildschirm an der entsprechenden 
Stelle gesetzt. Im anderen Falle muß eingegeben werden 

250 IF A$ NE “J" THEN PRINT " 

womit der Punkt am Bildschirm gelöscht wird. Dann kann die 
innere Schleife beendet werden und der errechnete Wert für 
SU in dem vorher dimensionierten Feld BY(63) an der ent¬ 
sprechenden Stelle abgelegt werden. Diese Stelle errechnet 
sich aus der 'Zeilennummer - 1*3', womit die Bytes für 
volle Zeilen übersprungen werden, '+J' für die Nummer des 
Bytes in der aktuellen Zeile. Dann muß noch die Summe der 
errechneten Bits auf 0 gesetzt werden, und auch die mit¬ 
tlere Schleife kann beendet werden, was wie folgt aus¬ 
sieht: 

260 NEXT 

270 BY((I-l)*3+0) = SU 
280 SU=0 
290 NEXT 

Da alle bisherigen PRINT-Befehle mit einem abgeschlos¬ 

sen wurden, muß beim Abschluß einer Zeile (an dieser Stel¬ 
le sind wir jetzt angelangt) noch ein PRINT-Befehl einge¬ 
geben werden um die Ausgabe des nächsten Zeichens am Be¬ 
ginn der nächsten Zeile zu veranlassen. Dann kann auch die 
äußere Schleife abgeschlossen werden. 
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300 PRINT 
310 NEXT 

Nachdem die Punkte des Sprites erfaßt wurden, wollen wir 
diese noch auf dem Bildschirm ausgeben. Es ist zwar auch 
eine Ausgabe auf dem Drucker möglich, aber nicht jeder hat 
einen Drucker, so daß wir uns hier auf den Bildschirm be¬ 
schränken wollen. Da der Bildschirm weniger Zeilen als die 
Matrix Felder hat, müssen wir noch eine Warteschleife ein¬ 
bauen, mit der die Ausgabe unterbrochen werden kann; dazu 
nehmen wir ein bereits erprobtes Mittel: eine Warteschlei¬ 
fe mit einem GET-Befehl. 

Das Programm zum Ausgeben der errechneten Werte sieht dann 
wie folgt aus: 

320 FOR J=1 TO 64 
330 PRINT BY(J) 

340 GET A$ : IF A$ =" "THEN 340 
350 NEXT 

Damit ist das komplette Listing fertig, und wir können das 
Programm mit RUN starten. Die einzelnen Dezima1zah len die 
also in die entsprechenden Bytes für das Sprite einzutra¬ 
gen sind, werden von dem Programm ausgegeben. Diese kann 
man sich vom Bildschirm abschreiben und bei dem gewünsch¬ 
ten Programm als DATA-Befehle eingeben. Es gibt jedoch 
auch eine andere Möglichkeit: die errechneten Werte auto¬ 
matisch in Programmzeilen mit Datas einzulesen. Dies 
erspart die Mühe des Abschreibens und Eintippens. Wozu hat 
man schließlich einen Computer ?!? 

Dazu schreiben wir die erhaltenen Werte zunächst in den 
Arbeitsspeicher mit 

360 INPUT "ANFANG BYTE-BLOCK";AF 
370 HI = AF * 64 
380 FOR I = 1 TO 63 
390 POKE HI+I,BY(I) 

400 NEXT 

Warum der Eingabewert noch mit 64 multipliziert werden 
muß, sehen wir in den nächsten Kapiteln. Hier das 
Komplett-Listing : 


100 P0KE532S1 , J. 1 
1 10 PO KE 5'3280 , ’ c 

! . -H DII-IBV'. 64 ■ 

! H PP .1 MT 
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140 FÜRI=1T021 

150 PRINT"." 

160 HEXT 
170 PRINT"ä"; 

180 F0RI=1T021 
190 F0RJ=1T03 
200 F 0 R K = 1T 0 8 
210 OE TR* 

220 IFR*=""THEN210 

225 I FR*= " «-» THENK=K~1 : PR I NT " II" ? s GO TO 210 
230 I FR* = " J " THE N S U=SIJ+2 T < 8-K > 

240 I FR*= " J " THEHF'R I NT "£1 ■” j 
250 I FR TO " J " TH EN PR I NT " ü ■" ; 

260 NEXT 

270 BV< < I--1 >*3+J>=SU 

280 SU=0 

290 NEXT 

300 PRINT 

310 NEXT 

320 FQRJ=1TO64 

330 PRINTBVC J> 

340 GETR*:IFR*=""THEN340 
350 NEXT 

360 INPUT" R NF RN i3 BVTE-BLOCK " :RF 

370 HI=RF*64 

380 FÜRI—IT063 

390 POKE HI +1 BYt I > 

400 NEXT 


3.2 DATA-Anweisungen generieren 


Obungsziel: 

- Handhabung DATA-Statements 

- Generieren von Programmzeilen 

- Handhabung Tastaturpuffer 

500 PR INT" KIRCHE DRTR—ZEILEN RUS SPEI CHER INHRL.TEN" 

510 INPUT"J3STRRTRDRESSE IN SPEI CHER" ;SR 

520 INPUT"RHZlRHL BYTES";RES 

530 INF'UT"STRRTZEILE FUER DRTR" ;SZ 

540 IFSZC300THEN120 

550 PRINT"Z3" ; 
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560 FUR Z= 0TO < Hb--1 > 3 

578 PR I HTM I Df C3TRS<S:Z+Z > , 2 > ; " D* " ; 

580 F 0 RI=0T02 

590 IF3*Z+I>=RBTHEH210 

600 PR I HTM 1 Df OSTRf <F'EEK < SR+10*Z+1 > > , 2 > , " ; 

610 HEXT I 

620 PR I HTCHRf < 20 > 

630 P 0 KE632+Z,13 
648 HEXTZ 
650 PUKE631,19 
660 PÜKE198 r Z+1 
670 EHD 


Mit diesem Programm können DATA-Zeilen aus Spe i eher i nha l- 
ten generiert werden, was besonders natürlich bei den 
Sprites von Vorteil ist, wenn diese schon im Speicher ste¬ 
hen. Zunächst wird die Startadresse im Speicher abgefragt, 
die die absolute Stelle im RAM angibt. In der Variablen AB 
wird die Anzahl der Bytes abgefragt, für die die DATA-Sta- 
tements generiert werden sollen. Als letztes wird noch die 
Zeilennummer erfragt in der die DATA-Statements beginnen 
sollen. Die Startzeile für die Datas muß natürlich größer 
als 300 sein, da sonst das Programm selbst übersehrieben 
wird. 

In der folgenden Schleife werden alle Bytes in Oreiergrup- 
pen in DATA-Zeilen gepackt, so daß je Zeile eines Sprites 
auch eine DATA-Zeile vorhanden ist. Zunächst wird in Zeile 
170 die Zeilennummer der DATA-Zeile und der Befehl DATA am 
Bildschirm ausgegeben. In einer' weiteren Schleife werden 
dann die Spe icherinha 1 te ausgelesen und als Dezimalzahl am 
Bildschirm durch Komma getrennt dargestellt. In Zeile 220 
wird noch das letzte Komma in der DATA-Zeile eleminiert. 
Zeile 230 schreibt in den Tastaturpuffer eine '13' hinein, 
womit später - nach Abschluß des Programms - für jede 
DATA-Zeile ein RETURN ausgelöst wird, wodurch die Zeile 
dann in den Speicher übernommen wird. In Zeile 250 wird 
noch das erste Zeichen im Tastaturpuffer mit dem Befehl 
'HOME' belegt und in Zeile 260 wird die Anzahl der gülti¬ 
gen Zeichen im Tastaturpuffer festgelegt. 

Für andere Programme können wir uns also merken: 

- Beginn des Tastaturpuffers in RAM-Adresse 631 

- Anzahl der gültigen Zeichen im Tastaturpuffer: 

RAM-Adresse 198. 

Wenn man per Programm irgendetwas an das Programm selbst 
übergeben will, muß man Zeilennummer und Programmzeile auf 
den Bildschirm bringen und diese über Tastaturpuffer mit 
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einem Carr i age-Kc: turn ( CIIK S ( 13) ) nach Programmende über¬ 
nehmen lassen. 

In dem vorliegenden lall wird das Unterprogramm ja nur für 
Sprites benützt, so daß die Zeile 120 auch noch wegfallen 
kann und man die Variable AB konstant auf 63 setzen kann. 
Mit diesem Unterprogramm können aber auch Maschinenpro¬ 
gramme in DAIA-Statements übernommen werden. Dazu muß dann 
jedoch die Anzahl der Bytes eingelesen werden, und es ist 
zu berücksichtigen, daß nur 21 Zeilen auf den Bildschirm 
[lassen, da auch noch die Systemmeldung 'ready.' unterge¬ 
bracht werden muß. 

In diesem Falle kann man aber in Zeile 160 und 190 die '3' 
durch eine '10' ersetzen Lind in Zeile 180 die '2' durch 
'9', womit dann bis zu 10 Speicherzellen in eine DATA- 
Zeile über'nommen werden. 


3.3 Sprites erzeugen 


Obungszie1: 

- Spritedaten in RAM schreiben 

- Sprites am Bildschirm sichtbar machen 

Wir wollen im folgenden Programm zunächst das Sprite er¬ 
zeugen und ihm dann definierte Bewegungen über Buchstaben 
der Tastatur zuordnen (siehe nächstes Kapitel). Dazu geben 
wir zunächst wieder die Farben für den Rahmen und den Hin¬ 
tergrund ein mit 

100 POKE 53280,8 
110 POKE 53281,11 

Die DATA’s wollen wir für die Sprites in den Zeilen 1000 
bis 1999 ablegen und beginnen mit dem Sprite wie es vorher 
dargestellt wurde in Zeile 1000, wobei jeder DATA-Zeile 3 
Zeilen des Sprite entsprechen, um spätere Korrekturen ein¬ 
facher durchführen zu können. 

1000 Data 0,24,0,0,24,0,0,60,0 

1010 Data 0,60,0,0,60,0,0,126,0 

1020 Data 0,126,0,0,126,0,12,126,48 

1030 Data 12,255,48,13,255,176,15,129,176 

1040 Data 15,165,240,15,129,240,31,255,248 

1050 Data 63,255,252,127,255,254,255,255,255 

1060 Data 0,231,0,0,231,0,0,231,0 
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Das Einlesen und Vorbesetzen der Video-Controller- 
Variablen für die einzelnen Sprites wollen wir in den 
Zeilen 2000 bis 2999 unterbringen. Zunächst müssen wir 
jedoch noch der Einfachheit halber die Startadresse des 
Video-Controllers (VIC) der Variablen V zuordnen und 
erhalten 

120 V=53248 

In Zeile 2000 wollen wir die gewünschten Bytes für die 
Anfangsbelegung aktivieren und erhalten somit, wenn wir 
dem 'Raumschiff' das Sprite 0 zuordnen 

2000 POKE V+21,1 

dann müssen wir dem Sprite noch den Speicherbereich 
zuweisen, wo seine Form vermerkt ist, wozu wir den ersten 
Teil des Kassettenrecorderpuffers hernehmen (Speicherzel¬ 
len ab 832/13. Block ). 

2010 POKE 2042,13 

In der folgenden Schleife werden die DATA's, die wir in 
den Zeilen ab 1000 definiert haben, in die entsprechenden 
Speicherzellen übertragen. 

2020 FOR 1=1 TO 63 
2030 READ PU 
2040 POKE 831+1,PU 
2050 NEXT 

Damit wir das Sprite auch auf dem Bildschirm sehen, müssen 
wir ihm noch seine X und Y Koordinaten zuordnen. Do es 
sich um Sprite 0 handelt ist das Register V für die X- 
Koordinate und das Register V+l für die Y-Koordinate zu¬ 
ständig. Wir wollen das Sprite irgendwo links oben am 
Bildschirm erscheinen lassen und setzen deshalb X=50 und 
Y=50. Ebenso müssen wir noch die Farbe für das Sprite 
festlegen, wozu das Register V+39 herangezogen wird. Dort 
tragen wir den Code für Gelb (7) ein. 

2052 X = 30 
2054 Y = 50 
2060 POKE V,50 
2070 POKE V + l,50 
2080 POKE V+39,7 

Wenn wir nun das bisher eingetippte Programm mit RUN 
starten, erscheint das gewünschte Sprite links oben am 
Bi 1 d s c hir m. 
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3.4 Sprites bewegen 

Übungszie 1: 

- Tastaturabfrage 

- bewegen von Sprites 

- automatische Bestimmung X/Y-Koordinaten 

Um unser Sprite zu bewegen und dabei nicht auf den Zufall 
angewiesen zu sein,benutzen wir die Buchstaben der Tasta¬ 
tur, um die Richtung für das Sprite vorzugeben. Wer einen 
□oystick hat, fragt statt der Buchstaben die entsprechen¬ 
den Bytes im Speicher für den Joystick ab. Wir wollen 
festlegen, daß das Sprite mit E nach oben, mit D nach 
rechts, mit 'S' nach links und mit 'X' nach unten geht 
(siehe Anordnung auf der Tastatur). Vorher wollen wir je¬ 
doch das Programmstück zum Unterbringen der neuen X/Y- Ko¬ 
ordinaten in den entsprechenden Adressen des Video-Con- 
trolL ers schreiben. Um nicht auf einen 'Illegal Quantity 
Error' zu laufen, müssen wir noch abprüfen, ob X und Y im 
zulässigen Bereich liegen. Das Programmstück sieht dann 
wie folgt aus: 

4000 IP X LT 0 TUEN X = 0: GOTO 4030 

4010 IF X GT 300 TUEN X = 255 : GOTO 4030 

4020 POKE V,X 

4030 IF Y LT 0 then Y = 0 : RETURN 

4040 if Y GT 200 then Y = 200 : RETURN 

4050 POKE V+1,Y 
4060 RETURN 

Für die Bewegung wollen wir zunächst eine Vorversion 
schreiben mit der die Bewegung einzeln beim jeweiligen 
Tastendruck erfolgt und anschließend das Programm so um¬ 
gestalten, daß die Bewegung solange erfolgt, bis eine neue 
Taste gedrückt wird. Dazu brauchen wir wieder eine Schlei¬ 
fe, die ein Zeichen von der Tastatur einliest und ein 
Programmblock der die eingelesenen Zeichen verarbeitet. 

300.0 GEI A$ 

3010 IF A$ = ' ' IHE N 3000 

3020 IF A$ = 'E' EHEN Y=Y-1 : GOSUB 4000 : GOTO 3000 

3030 IF A$ = ' l)' TUEN X = X + 1 : GOSUB 4000 : GOTO 3000 

3040 IF A$ = ''S'' TUEN X=X-1 : GOSUB 4000 : GO 10 3000 

3050 IF A$ = "X" IHEN Y=Y+1 : GOSUB 4000 : GOTO 3000 

3060 GOTO 3000 
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Wenn wir nun das Programm mit RUN/RETURN starten, können 
wir nun mit den Tasten E,D,S und X das Sprite nach oben, 
rechts, links und unten bewegen. Damit das Sprite etwas 
größer erscheint können wir das Programm mit RUN/S10P un¬ 
terbrechen und im Direkt-Modus mit POKE V+29,1 und POKE 
V+23,1 das Sprite auf das 4-fache vergrößern. 

Da es recht mühsam ist, das Sprite immer nur minimal mit 
einem Tastendruck zu verschieben, wollen wir nun das Pro¬ 
gramm so umstellen, daß das Sprite sich solange in die 
gewünschte Richtung bewegt, bis eine andere Taste gedrückt 
wird. Dies erreichen wir mit: 

3000 Print "CLR/HOME" 

3010 GET A$ 

3020 IF Af = " EHEN 3040 
3030 13$ = A$ 


3040 

IE 

U$ = "E“ 

TUEN 

Y = 

Y-l : 

GOSUß 

4000 

: GOTO 

3010 

3050 

IF 

B$ = ''0" 

TUEN 

X = 

X + l : 

GOSUB 

4000 

: GOTO 

3010 

3060 

IF 

13$ = "S" 

TUEN 

X = 

X- 1 : 

GOSUB 

4000 

: GOTO 

3010 

3070 

3080 

IF = "X” 

GOTO 3000 

TUEN 

Y = 

Y + l : 

GOSUB 

4000 

: GOTO 

3010 

Durch 


das Übergehen 

der 

Zeile 

3020 

in 

Zeile 

3040 


sichergestellt, daß die Bewegung auch ausgeführt wird, 
wenn keine Taste gedrückt wurde. Wurde ein anderes Zeichen 
gedrückt, wo wird dies in der Zeile 3030 der Variablen B$ 
zugeordnet und, sofern ein gültiges Zeichen vorlag, dies 
in die Bewegung übernommen. Bei allen anderen Zeichen hält 
die Bewegung an. Damit sind jedoch noch nicht alle Bewe¬ 
gungsmöglichkeiten ausgereizt, es fehlen noch die Diagona¬ 
len. Wir wollen also verwenden: 

R - rechts oben 
W - links oben 
C - rechts unten 
Z - links unten 


(jeweils analog der Anordnung auf der Tastatur) und müssen 
unser Programm wie folgt ändern: 


3080 

IF 

B$ = 

' R ' 

TUEN 

Y = Y-1:X=X+1:GOSUB 

4000: 

GOTO 

3010 

3090 

IF 

B$ = 

' W ' 

THEN 

Y = Y-1:X=X-1:GOSUB 

4000: 

GOTO 

3010 

3100 

IF 

Bi? = 

' C' 

TUEN 

Y = Y+1:X=X+1:GOSUB 

4000: 

GOTO 

3010 

3110 

IF 

B$ = 

' Z ' 

THEN 

Y = Y+l:X=X-1:GOSUB 

4000: 

GOTO 

3010 


Wenn wir jetzt das Programm starten, haben wir schon acht 
Bewegungsrichtungen für unseren 'Abfangjäger', wobei bei 
einem Anstoß an den Rand bei den diagonalen Bewegungsrich¬ 
tungen jeweils nur noch eine Richtung ausgeführt wird. Bei 
geraden Bewegungsrichtungen am Rand und bei diagonalen Be- 
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wegungsrichtungen in der Ecke bleibt unser Sprite stehen. 

Nun wollen wir uns noch ein zweites Sprite definieren wie 
es in den Zeilen ah 1100 dargestellt ist: 


1 100 

DATA 

12, 

0, 48, 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 

1 L10 

DATA 

12, 

0, 48, 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 

1120 

IMTA 

12, 

0, 48, 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 

L130 

DATA 

12, 

0, 48, 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 

1140 

DATA 

12, 

0, 48, 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 , 

0 

1150 

DATA 

0 , 

0 , 0 , 0 , 

- 0 , 

0 , 

, 0 , 

0 , 

0 




1160 

DATA 

0 , 

0 , 0 , 0 

, 0 , 

0 

, 0 

, 0 , 

0 





IVie man leicht sieht besteht dieses Sprite nur aus wenigen 
Punkten und ist so konstruiert, daß es überlagert mit un¬ 
serem 'Abfangjäger' Schüsse aus dessen 'Kanone' simuliert, 
für diese Schüsse wollen wir Sprite Nr.l heranziehen und 
müssen dementsprechend ändern 

2000 POKE V+21,3 

und einfügen: 

2100 POKE 2041,14 

womit wir dem Sprite 1 den 14. Datenblock zuordnen, d.h. 
die Speicheradressen ab 896. Für die Zuordnung ergeben 
sich folgende Zeilen: 

2110 FÜR 1=1 TO 63 
2120 READ PU 
2130 POKE 895+1,PU 
2140 NEXT 
2150 XI = 100 
2160 VI = 100 

Für die X/Y-Koordinaten und die Farbe ergibt sich 

2170 POKE V+2,X 
2180 POKE V+3,Y 
2190 POKE V+40,5 

wenn die Farbe grün sein soll und Sprite 1 mit Sprite 0 
deckungsgleich sein soll. 

Da das Sprite Nr. 1 jedoch nur erscheinen soll, wenn ge¬ 
schossen wird, ändern wir Zeile 2000 wieder ab in 

2000 POKE V+21,1 

und ergänzen 
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3120 IF B$ = "(Pfeil nach oben)” THEN GOSUB 5000 : GOTO 3010 

In dem Unterprogramm ab 5000 müssen wir nun das Sprite für 
den Schuß einschalten 

5000 POKE V+21,3 

sowie einen Merker setzen, daß der Schuß im Moment 'mit¬ 
spie lt ‘ : 

5010 S=1 

dann müssen wir die aktuellen X/Y-Koordinaten dem Schuß¬ 
sprite zuordnen mit 

5020 XI = X 
5030 Y1 = Y 
5040 POKE V+2,X1 
5050 POKE V+3,Y1 

wonach wir das Unterprogramm mit 
5060 RETURN 

verlassen können. In der Schleife die das Raumschiff be¬ 
wegt, muß nun auch die Bewegung für das Schuß-Sprite 
durchgeführt werden. Wir verlegen also Zeile 4000 nach 
Zeile 4005 und rufen das zu schreibende Unterprogramm ab 
Zeile 5100 aus Rechenzeitgründen nur dann auf, wenn wirk¬ 
lich ein Schuß gestartet wurde. 

4000 IF S THEN GOSUB 5100 

In dem Unterprogramm ab 5100 brauchen wir nur von der Y- 
Koordinate des Sprites 1 '1' abzuziehen, 

5100 Y1 = Y1 - 1 

und den so erhaltenen Wert dem entsprechenden Register (3) 
zuzuordnen mit 

5110 POKE V+3,Y1 

damit können wir das Unterprogramm mit 
5120 RETURN 


verlassen. 
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3.5 Kollision von Sprites 


Übungsziel: 

- Kollision von unterschiedlichen Sprites bestimmen 

- Sprites per Zufall auf dem Bildschirm bewegen 

- Farbwechsel 

- schrittweise Programmentwicklung 


Sehr interessant bei dem Commodore 64 ist die Möglichkeit, 
festzustellen, ob sich Sprites überlagern. Dies geschieht 
mittels eines Registers, wo aus den gesetzten Bits abgele¬ 
sen werden kann, welche Sprites miteinander kollidieren. 

Unser schon bekanntes Spiel wollen wir nun ergänzen, indem 
wir auch noch einen feindlichen Raumgleiter (Star Wars 
läßt grüßen) als drittes Sprite definieren. Die DATA's da¬ 
zu befinden sich in den Zeilen 1200 bis 1260 und lauten 
wie folgt: 


1200 DATA 192, 0, 3, 192, 0, 3, 192, 0, 3 

1210 DATA 192, 0, 3, 192, 0, 3, 192, 0, 3 

1220 DATA 192, 0, 3, 192, 24, 3, 192, 60, 3 
1230 DATA 192, 102, 3, 255, 231, 255, 192, 102, 3 
1240 DATA 192, 60, 3, 192, 24, 3, 192, 0, 3 
1250 DATA 192, 0, 3, 192, 0, 3, 192, 0, 3 

1260 DATA 192, 0, 3, 192, 0, 3, 192, 0, 3 

und das schon bekannte Vorbesetzen der Werte des Sprites 
sieht dann wie folgt aus: 

2200 POKE 2042,15 
2210 FOR 1=1 TO 63 
2220 READ PU 
2230 POKE 959+1,PU 
2 235 NEX T 

2240 X2 = 200 * RND(-TI) +100 
2250 Y2 = 150 * RND(-TI)+100 
2260 POKE V + 4,X2 
2270 POKE V+5,Y2 
2280 POKE V+41,1 

Wie man an den Zeilen 2240 und 2250 sehen kann, wird das 
Sprite irgendwo am Bildschirm dargestellt. 
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Auch sollen die Bewegungen des Sprites automatisch erfol¬ 
gen, wobei unser 'Abfangjäger' natürlich schneller sein 
soll. Wir wollen festlegen, daß Sprite 2 jedes 5.mal be¬ 
wegt werden soll, wenn eine Bewegung für Sprite 0 geprüft 
wurde und geben deshalb noch die Zeile 

3014 ZA = ZA + 1 : IF ZA GT 5 MILN GOStlß 6000 

In dem Unterprogramm ab Zeile 6000 wollen wir dann das 
Sprite 2 automatisch bewegen, was dann wie folgt aussieht: 

6000 X2 = X 2 + 5 * RM1)( 5) -3 

6005 IF X2 LI 0 OR X2 G \ 255 TUEN 6099 

6010 Y2 = Y2 + 5 * RND(5) -2 

6015 IF Y2 LT 0 OR Y2 GT 255 T1-1FN 6099 

6020 POKF V+4,X2 

6030 POKE V+5,Y2 

6040 ZA=0 

6099 RETURN 

Der Zähler (ZA) für die Tastaturabfrage wird gleich in dem 
Unterprogramm wieder auf 0 zurückgesetzt. Wie wir in Zeile 
2260 und 2270 schon gesellen haben sind die Adressen für 
die X/Y-Koordinaten den Adressen 4+5 des Videochips zu¬ 
geordnet. 

Jetzt sind wir bereits in der Lage unseren 'Abfangjäger' 
mittels der Buchstabentasten zu bewegen, mittels der 
Pfeiltaste einen Schuß loszulassen und haben ein drittes 
Sprite, was sich willkürlich am Bildschrm bewegt. Wenn Sie 
jetzt etwas 'testen', werden Sie feststellen, daß sich bei 
Kollisionen der Sprites natürlich nichts tut. Die Schüsse 
durchdringen einfach den feindlichen Raumgleiter. 

Das Register zur Feststellung für die Kollisionen befindet 
sich im Videochip in der Adresse 30, und diese wollen wir 
nun abfragen mit 

3016 IF PEEK (V+30) NE 0 TUEN GOSUB 7000 

In dem Unterprogramm ab Zeile 7000 besetzen wir zunächst 
die Hilfsvariable KO mit dem Ergebnis des Sprite-Kol 1 i- 
sion-Bytes und prüfen anschließend ab, was vorliegt. 
Interessant sind für uns nur die Fälle K0=3, 6 und 5, da 
diese nur auftreten können. Bei l<0=3 liegt eine Kollison 
zwischen dem Schuß und dem Raumgleiter vor, die natürlich 
auch beim Abschuß entsteht. Diese Kollision darf logi¬ 
scherweise im weiteren Spielverlauf nicht ausgewertet wer¬ 
den und wir verlassen das Unterprogramm sofort wieder. Aus 
Rechenzeitgründen wurde unter anderem diese Abfrage nach 
vorne gelegt, da das Programm leider schon zu langsam ist. 
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Hei einem K()=0 lieg), eine Kollision zwischen dem Schuß und 
dem feindlichen Raumgleiter vor und wir verzweigen in ein 
entsprechendes Unterprogramm und hei einem K0=5 liegt eine 
Kollision zwischen den beiden Raumschiffen vor. 

1 : s ergehen sich also die Zeilen 

7000 KO = PEEK( V + 30) 

7005 If K0 = 3 rHEN KETIJRN 
7010 IE K 0=6 rill: N7100 
7020 IE KO=5 EHEN7200 
7030 RETURN 

IJm die Farbmög 1 ichke iten des Coinmodore 64 nochmals darzu¬ 
stellen, wurde bei dem 'Abschuß' von Sprite 2 nur eine 
Schleife programmiert, in der alle Farben des Commodore 64 
vorliegen. Zunächst wird jedoch das Sprite 1 (Schuß) abge¬ 
schaltet, da es seine Schuldigkeit getan hat. Die Schlei¬ 
fe, die durch die Variable IVA durchlaufen wird, dient nur 
zum Verlangsamen des Farbwechsels. Deshalb ist es auch 
unerheblich, daß jedesmal wieder der Schuß innerhalb der 
Schleife abgeschaltet wird. 

Als Abschluß dieses Unterprogramms wird auch noch Sprite 2 
ausgeschaltet (durch Einschalten von ausschließlich Sprite 
0) und der Merker für einen gesetzten Schuß wird ausge¬ 
schaltet. 

7100 FÜR F = 0 TO 15 : FOR IVA=1 TO 15 

7105 POKE V + 21,5 

7110 POKE V + 41, F 

7120 NEXT : NEXT 

7130 POKE V+21,1 

7140 S=0 

7150 RETURN 

Ähnliches wie im letzten Unterprogramm wird auch bei einer 
Kollision der Raumschiffe programmiert, jedoch lassen wir 
die Nummern der Farben der-beiden Raumschiffe gegeneinan¬ 
der laufen, während ihres Farbwechsels. Ein Schuß bleibt 
natürlich weiterhin bestehen. Als Abschluß wird wieder die 
Farbe des Raumgleiters mit dem ursprünglichen Wert besetzt 
und der Raumgleiter selbst um je 50 Punkte in XY-Richtung 
weiterbewegt, damit es im weiteren Programmablauf nicht 
sofort wieder zu einer Kollision kommt. 

Damit wäre eigentlich ein Rahmen für ein Spiel gelegt. 
Zwei Kleinigkeiten wollen wir jedoch noch ergänzen. Zum 
einen wollen wir den Schuß ausschalten, sobald er am obe¬ 
ren Rand erscheint, dies■geschieht mit 
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5200 S=0 

5210 POKE V+21 ; 5 
5220 RETURN 

und zum anderen wollen wir natürlich nicht jedesmal das 
Programm neu mit RUN starten, sondern geben auch noch die 
Zeile 

3130 IF B$ = "N" TUEN POKE V+21,5 : G0T03010 

ein, womit durch das Drücken der Taste N' ein neues 
Sprite 2 erzeugt wird. 


3.6 Sontiges / Zusammenfassung 

Ziel von Kapitel 3 war es nicht, ein Superspiel zu pro¬ 
grammieren, sondern Ihnen die Möglichkeiten der Program¬ 
mierung von Sprites aufzuzeigen. Daß das Spiel sehr lang¬ 
sam geht, liegt an dem Basic-Interpreter. Interessierte 
Leser können dies sicherlich mit Hilfe des in Kapitel 5 
beschriebenen Assemblers verschrie 1 lern. Dies würde jedoch 
den Rahmen dieses Buches sprengen. In Band 3 werden wir 
auf dieses Thema noch einmal eingehen. 

Um Ihnen die weiteren Änderungen des vor 1iegenden Program¬ 
mes zu vereinfachen, haben wir im Anschluß nochmal das 
komplette Listing abgedruckt und eine Übersicht über die 
verwendeten Variablen, sowie deren Funktion. 

Dieses Spiel bietet dem Spiele-Fan ein weites Betätigungs¬ 
feld. Es können z.B. weitere Sprites definiert werden z.B. 
der 'Abfangjäger' in vier verschiedenen Drehrichtungen, 
dementsprechend müssen auch die Schüsse waagerecht, senk¬ 
recht und jeweil s in beiden Richtungen verlaufen können. 
Weiterhin könnte man ein Zeitlimit festsetzen und eine- 
Punktvergabe für getroffene gegnerische Raumschiffe ein¬ 
bauen. Da auch eine Kollision zwischen Sprite und Hinter¬ 
grund abgefragt werden kann, kann man mit grafischen Zei¬ 
chen eine Basis aufbauen, an die man den 'Abfangjäger' an- 
docken lassen kann. Wie Sie sehen, gibt es hier schier 
unerschöpfl iche Moglichkeiten. 

1 fl ,”| p> (Tf-i $$ $ $ $ »|i $ $$$$$4# * $ * * *+'♦ + ■+44 4 4- 4 4444+444 4 

1.01 REH 4: I Fi K E T E 9 l : "' F' I T E 0 '■ 

1 0. R E H 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 

1 lU I00 • 

1 ,J0 I Ü;' t EUEO i . I l 

■ K | ; 4*4+4 44 + .|. 4 + |. 4 4 4 4 4 4 f 4 4 •!' 4 4 4 4 4 4 4 44 4 4 4 4 4 4 4 44 4 
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998 REM * DATRS EUER SPRITE 0 * 

999 REM *************^*************************** 

1000 D fl T fl 0,24,0,0,24,0,8 , 6 0,0 

1010 DRTFI0,60,00, 60,0, 0,126,0 
1020 DRTflfl, 126,0,0,126, 0... 12,126,48 
1030 DATA 12,255,48 , 13., 255., 176., 15., 129 , 176 
1040 DATA 15., 165., 240., 15,129., 240., 31., 255,248 
1050 DATA63,255,252,63,255,252,63,255,252 
1060 DATA0,231,0,0,231,0,0,231,0 

1097 REM *##*##*#*#*##*#**###**###*#######*##*##** 

1098 REM * DATAS EUER SPRITE 1 * 

1099 REM *##*##*#*##**#*#*#*##**###**######**####* 

I 100 DATA 12,0,48,0,0,0,0,0,0 

II 10 D A T fl 12,0,4 8,0,0,0,0,0,0 
1 12 0 D A T A12,0,4 8,0,0,0,0,0,0 
1130 DATA 12,0,48,0,0,0,0,0,0 
1140 DATA12,0,4 8,0,0,0,0,0,0 
1150 DATA0,0,0,0,0,0,0,0,0 

1160 DATA0,0,0,0,0,0,0,0,0 

1197 rem 

1198 REM * DATAS EUER SPRITE 2 * 

1199 REM #*##*#*#**##****##***#*##**####**###*#### 

1200 DATA192,0,3,192,0,3,192,0,3 
1210 D ATA192,0,3,192,0,3,192,0,3 

1220 DAT 19192,0,3,192,24,3,192... 60,3 
1230 DATA192,102,3,255,231,255,192,102,3 
1240 DATA192,60,3,192,24,3,192,0,3 
1250 DA7Al92,0,3,192,0,3,192,0,3 
1260 DATA 192,0,3,192,0,3,192,0,3 

1997 REM ####**#****#***#*###**##***#*###*#*#*###* 

1998 REM * SPRITE 0 VORBESETZEN * 

1999 REM **#***####*#**#*#****#####*#*#########*## 

2000 P 0l< E V+21,5 
2016 POKE2040,13 
2020 FÜR I---1T063 
2030 RE Fl DP IJ 

2040 POKE831+I,PU 
2058 HEXT 
2852 X=30 
2054- V=50 
2060 POKEV,X 
2070 FÜKEV+1,V 
2080 P 0 K E V+3 9,7 

20:97 REM ##**#*#***#*#*#**#*#**^##*##*##*######### 

2098 REM * SPRITE 1 VORBESETZEN * 

2099 rem 

2 100 POKE2041, 14 
2110 FORI = 1 TO63 
2120 READPU 

2130 P0KE895+1 , PU 
2135 HEXT 
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2140 X1-10Ö 
2150 Vl=:100 
2160 P0KEV+2..X1 
2170 POKEV+3V1 
2180 POKEV+40.5 

2187 REM ***************************************** 

2198 REM * SPRITE 2 VORBESETZEN * 

2199 REM ***************************************** 

2200 P 0 K E2042., 15 
2210 FÜR I =: 1T063 
2220 REHDPU 

2230 P0KE959+I , PU 
2235 HEXT 

2240 X2=:200*RND<-TI > +100 
2250 V2= 150* RH Ci <-T I > +100 
2! 2 E« 0 F' O K E V -h 4- , .X 2 
2270 PQKEV+5,V2 
2280 F'OKEV+411 

2997 REM ***************************************** 

2998 REM * BEWEGUNGSABLAUF * 

2999 REM ***************************************** 

3000 PRI NT" 

3010 GE TAT 

3012 IFSTHENG0SUB5100 

3014 Zfi=Zfl+1:IFZH95THENGOSUB6000 

3016 IFPEEK < V+30 > O0THENGOSUB7000 

3020 IFfl$ = ""TUEN3040 

3022 C*=B$ 

3 O 3 0 IF B $ < > fl TTHENBT=fl $■ 

3040 IFBT--" E " THENV=V-1 : GO3UB4000 :GOTO3010 :POKEV+21 7 

3050 IFBT="D"THENX=X+1 : GOSUB4000:GOTO3010 

3060 IFBT="S"THENX=X-1:GOSUB4O00:GÜTO3010 

3070 IFBT="X"THENV=V+1:GOSUB4000:GOTO3010 

3080 IFB*="R"THEHV=V-1:X=X+1:GOSUB4000:GOTO3010 

3090 IFBT--=" M " THENV=V-1 : X=X-1 : GOSUB4Ü00 : GOT03010 

3100 I FE'$= " C " THENV=V+1 : X=X+1 : GOSUB4000 : OOTO3010 

3110 IFB$="Z"THENV=V+1 : X=X-1 : GOSUB4000:GOTO3010 

3115 IFSTHEN3010 

3120 IFE:$=”t"THEMGOSUB5000:BT=CT:GOTÜ3010 
3130 I FBT= " H 11 THENF'OKEV+21 5 : GOTO3010 

3997 REM ***************************************** 

3998 REM * SPRITE © BEWEGEN * 

3999 REM ***************************************** 

4000 IFSTHENGOSUB5100 
4005 IFX<0THENX=0:GOT04030 

4010 IFX>255THENX=255:GOTO4030 
4020 POKEVX 

4030 IFV<0THENV=0:RETURN 
4040 IFV>200THEN'r'=200 : RETURN 
4O50 POKEV+l,V 
1060 RETURN 
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4997 REN ***************************************** 

4998 REN * SPRITE 1 BEWEGEN * 

4999 REN ***************************************** 

5000 F'ÜKEV+21,7 
5010 S=1 

5020 X1=X 

5030 V1=V 

5840 P0KEV+2X1 

5050 PÜEEV+3 Pr'l 

506O RETURN 

5.1.00 V1=Y1-1 

5102 IFV1C0THEN5200 

5110 POKEV+3r V1 

5120 RETURN 

5200 S=0 

5210 POKEV+21,5 

5220 RETURN 

5997 REN ***************************************** 

5998 REN * SPRITE 2 BEWEGEN * 

5999 REN ***************************************** 

6 Ei Ei Ei X 2=X 2+5 * R N Ci 5 ) - 3 

6005 IF X2<0 0 RX2>255T HEN6Ei Ei5 

6010 V2=V2+5*RND<5 >-2 

6015 IF V 2 <EiOR V 2 > 255i T H E N S Ei Ei5 

602Ei P 0 K E V+4 X 2 

6 Ei 3 0 P 0 K E V+5, V 2 

6 Ei 40 Zfi----Ei 

6099 RETURN 

6997 REN ***************************************** 

6998 REN * KOLLISIONSPRUEFUNG * 

6999 REM ***************************************** 
70Ei0 KO=PEEKE V+3 Ei} 

7005 IFK0=3THENRETURN 
7010 IFKO~6THEN7100 
7020 IFKO=5THEH7200 
7030 RETURN 

7097 REN ***************************************** 

7098 REM * SPRITE 1 GETROFFEN * 

7099 REN ***************************************** 

7100 FORF=0TÜ15:FORWfl=1TO15 
7105 POKEV+21,5 

7110 POKEV+41, F 
7120 NEXTsNEXT 
7130 POKEV+21,1 
7140 S--E1 
7150 RETURN 

7.197 REN ***************************************** 

7198 REN * SPRITE 2 GETROFFEN * 

7199 REN ***************************************** 

7200 F ORF=Ei TO 1 5 : FORWfl= 1 TO 15 
7210 POKEV+41,F 
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'.220 PÜKEV+35 1 , 15—F 
■'230 nt:: :r snext 
"235 POKEVt-39. 3 

"233 V+ 50 
-'22 0 3E ! I...IRI 1 


RAKETE 

10 - 7240 

Variablen: 



Name 

! Typ 

! Bereich 

! Bedeutung 

A$ 

! G 

! 1 

Z e i c h e n 

! Einlesen von Tastatur 

B$ 

! G 

! 1 

Ze ichen 

! ' Bewegungszeichen ’ 

c$ 

! G 
! 

! 1 
j 

Ze ichen 

! Zwischenspeichern des 
! Bewegungszeichens 

F 

! H 

! 0. 

. . 15 

! Farbe für Farbwechsel 

KO 

! H 

! 0. 

. .255 

! Kollision sinerker 

PU 

! H 
| 

! 0. 
j 

. . 255 

! HV zum Umsetzen der 
! DATA's Für die Sprites 

S 

! E/R 

! 0/1 

! Flag Für Schuss 

V 

! G 

! Konstante 53243 ! Adresse VIC 

WA 

! h 

! 1 . 

. . 15 

! WarteschleiFe 

X 

! G 

! 0. 

. .319 

! X-Koordinate Sprite 0 

XI 

! G 

! 0. 

. . 319 

! X-Koordinate Sprite 1 

X2 

! G 

! 0. 

. .319 

! X-Koordinate Sprite 2 

Y 

! G 

! 0. 

. . 199 

! Y-Koordinate Sprite 0 

Y1 

! G 

! 0 . 

. . 199 

! Y-Koordinate Sprite 1 

Y2 

! G 

! 0 . 

. . 199 

! Y-Koordinate Sprite 2 

ZA 

! G 

! 0 . 

. . 5 

! Zähler Für Bewegung 


Sprite 2 


! Felder 

(Arrays): 



! Name ! 

Dirnen. ! lyp 

llere ich 

! Bedeutung 

! keine! ! ! ! 
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Unterprogrammaufrufe : 


in ! 

nach 

j 

Zweck 

3014 

6000 

! 

Sprite 2 bewegen 

3016 ! 

7000 

! 

Kollision prüfen 

3040 ! 

4000 

| 

Sprite 0 bewegen 

3050 ! 

4000 

} 

Sprite 0 bewegen 

3060 

4000 

| 

Sprite 0 bewegen 

3070 

4000 

j 

Sprite 0 bewegen 

3080 

4000 

| 

Sprite 0 bewegen 

3090 

4000 

J 

Sprite 0 bewegen 

3100 

4000 

J 

Sprite 0 bewegen 

3110 

4000 

j 

Sprite 0 bewegen 

3120 

5000 

i 

Schuss einschalten 

4000 

5100 

j 

Schuss bewegen 


Verzweigungen 

nach außen : 


in Ze ! nach 

! Bedingung 

! Bemerkung 

keine! ! ! 



























4 

Die hochauflösende Grafik 
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4. ■ Hochauflösende Grafik 


fine der beiden hervors techenden Merkmale des Commodore (> 4 
gegenüber den Geräten der Serie 2000 bis 8000 ist die 
hochauflösende Grafik von waagrecht 320 Punkten und senk¬ 
recht. 200 Punkten, also insgesamt 64000 Punkten. Um sich 
zu veranschaulichen wie die hochauflösende; Grafik funk¬ 
tioniert, wollen wir eine andere kleine Rechnung aufstel¬ 
len: Jedes Zeichen auf dem Bildschirm wird aus einer' 
Punktmatrix von 8x8 Punkten (=64) gebildet. Da 1000 Zei¬ 
chen auf den Bildschirm passen, ergibt sich auch so wieder 
eine Einze lpunktanzahl für den normalen Textteil von 64000 
Punkten. Diesen Zusammenhang werden wir später an ver¬ 
schiedenen Stellen noch benutzen müssen. 


4.1 Allgemeines 


4.1.1 Aufbau der Grafikspeicher 


Eines sei gleich vorweg gesagt: hochauflösende Grafik in 
Zusammenhang mit dem Textmodus normal ist nicht möglich. 
Gesteuert wird die hochauflösende Grafik von dem Videochip 
(VIC), dessen Adresse wir von den Sprites her schon ken¬ 
nen: 53248. Ebenso wie dem Computer gesagt werden muß, das 
eine oder andere Sprite einzuschalten, muß man dem Compu¬ 
ter auch mitteilen, daß er mit hochauflösender Grafik ar¬ 
beiten soll. Dazu ist in der Adresse 53248+17 (im folgende 
kurz V+17 genannt) das Bit 32 zu setzen, was mit dem Be¬ 
fehl 

POKE V+17,59 (Normaler Inhalt: 27) 

geschieht. Außerdem sind in dem Byte V+24 noch das Bits 1 
und zwei zu setzen, mit dem Befehl: 

POKE V+24,24 (Normaler Inhalt: 21). 

Jetzt hat man zwar den Rechner auf Grafik umgescha 1 tet, 
jedoch wird - wenn man die Befehle alleine eingibt - nur 
wirres Zeug am Bildschirm erscheinen. Zwei Sachen müssen 
vorher noch durchgeführt werden: Die Farbbestimmung für 
die Grafik und den Grafikspeicher löschen. 
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Iler Com modo re 64 kennt im Grafikmodus im Prinzip zwei Zu¬ 
stände. Zum einen das Zeichnen mit einer Farbe auf einem 
anderen farbigen Hintergrund und zum anderen ein Multi- 
Color-Modus, bei dem bis zu vier Farben verwendet werden 
können. Auf den Multi-Color-Modus - der für den Anfänger 
etwas schwierig zu handhaben ist - wollen wir in diesem 
Buch verzichten und in Band 3 der Reihe 'Das Commodore 64- 
Buch' näher eingehen. 

[in RAM liegt in den Zellen 1024 bis 2023 der Bildschirm¬ 
speicher für den Textmodus. Wie wir an der anfangs erwähn¬ 
ten Rechnung schon gesehen haben, werden auch im Prinzip 
liier 64000 Punkte abgelegt. Der Unterschied zu dem weiter 
unten erklärten Farbspeicher besteht darin, daß der Bild¬ 
schirmspeicher für je 64 Punkte ein Byte (=8 Bits) enthält 
das angibt, welches Zeichen aus dem Zeichengenerator zu 
holen ist. Dieses Zeichen füllt dann die 64 Punkte als 
Ganzes aus. Die 1 KByte Speicher für den Bildschirm sind 
also nur für maximal 8000 Punkte zu gebrauchen. Oder man 
nimmt sie zur Speicherung der Vorder- und Hintergrundfarbe 
je Zeichen her. Dazu werden in einem Byte (=1 Zeichen) des 
Bildschirmspeichers zwei Halbbyte zu je vier Bit gespei¬ 
chert, von denen die ersten vier Bit die Punktfarbe und 
die letzten vier Bit die Hintergrundfarbe angeben. Mit ein 
bischen Binär-Arithmetik stellt man sehr leicht fest, daß 
die sechzehn Farben des Commodore komplett in vier Bit 
darstellbar sind. 

Wenn man also mit folgender Programmschleife 

FOR 1=1024 TO 2023 
POKE I,HF+16*PF 
NEXT 1 

eine in den Variablen HF und ZF festgelegte Hintergrund- 
bzw. Zeichenfarbe in den Bildschirmspeicher schreibt, ist 
das Zufallsbild von vorhin nur noch zweifarbig. Die Spei¬ 
cherung der Farbcodes für je 64 Punkte ermöglicht es spä¬ 
ter Teilbereiche des Bildschirms bis hin zu einer minima¬ 
len Auflösung von 8x8 Punkten jeweils andersfarbig dar¬ 
zustellen. Man könnte also nach Belieben jedem Zeichen des 
Textspe ichers eine andere Zeichen- und Hintergrundfarbe 
zuordnen, wie es auch vom Rechner selbst im Textmodus ge¬ 
macht wird. Dies erkennt man am Schreiben eines Textes und 
zwischenzeitliches Umschalten der Farbe mit den CTRL- bzw. 
Commodore-Taste sehr leicht. 

Wenn man die Speicherzellen bildschirmbezogen zugeordnet 
durchnumeriert, ergibt die Relation 'Stelle am Bildschirm 
/ Nummer im RAM folgende Konstellation: 
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12345678 9 

4 1 42 4 3 44 45 46 47 48 4 9 

81 82 83 84 85 86 87 88 88 


38 39 40 

78 79 80 

118 119 120 


Die Information, welcher Punkt bei einer hochauflösenden 
Grafik am Bildschirm gesetzt werden soll oder nicht, wird 
in einem anderen Speicherbereich verwaltet. Dies sind die 
RAM-Adressen 8192 bis 16383. Wie man leicht sieht: 8 Kilo- 
Byte. 

Dabei wird jeweils einem Bit ein Punkt auf dem Bildschirm 
zugeordnet. Für ein Bildschirmzeichen werden also 8 Byte 
benötigt. Diese 8 Byte werden auch aus den vorher be¬ 
schriebenen 8 KByte fortlaufend herausgenommen, so daß 
sich für die Punkte folgendes Muster ergibt: 


In Klammern jeweils ein Byte 


( 

1 

2 

3 

4 

5 

6 

7 

8) 

( 

65 

66 

( 

9 

10 

11 

12 

13 

14 

15 

16) 

( 

73 

74 

( 

17 

18 

19 

20 

21 

22 

23 

24) 

( 

81 

32 

( 

25 

26 

27 

28 

29 

30 

31 

32) 




( 

33 

34 

35 

36 

37 

38 

39 

40) 


. 


( 

41 

42 

43 

44 

45 

46 

47 

48) 


. 


( 

49 

50 

51 

52 

53 

54 

55 

56) 




( 

57 

58 

59 

60 

61 

62 

63 

54) 


• 


( 

2561 

2562 

2563 

2564 

2565 

2566 

2567 2568) 

( 

2625 


( 

2569 

2570 

2571 

2572 

2573 

2574 

2575 2576) 

( 

2633 

. . • 


oder in Byte (analog zur Anordnung im RAM): 

1 9 17 25 33 41 49 ... 

2 10 18 26 34 42 50 ... 

3 11 19 27 35 43 51 ... 


8 16 24 32 40 48 56 

321 329 337 ... 

322 330 338 . . . 


328 336 344 
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641 


Dabei muß man hierbei zum Setzen der Bits rechnerisch wie 
in allen anderen Fällen (vgl. Sprites) auch Vorgehen. 


GRAFIK EINSCHALTEN 20000 - 20110 


Variablen: 


Name ! Typ ! Bereich 


Bedeutung 


HF 

LV 

V 

ZF 


! G ! 0... 15 

! H ! 1024...2023 / 

! ! 8192...16383 

! G ! konstant 53248 

! G ! 0. . . 15 


Hintergrundfarbe 
Lauf variable 

Adresse VIC 
Zeichenfarbe (Punkte) 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


keine! 


Verzweigungen nach außen : 


i n Ze ! 

nach ! Bedingung 

! Bemerkung 

20110 ! 

RETURN! Normales Ende 

! 


4.1.2 Punkt setzen 


£0400 REM **************************************** 

20401 REM * P U M K T E S E T Z E N 4 

20402 REM **************************************** 
20410 IF PX<0 ÜR PX>319 THEN RETURN 

20420 IF PVC0 OR PV>133 TUEN RETURN 
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20430 HX=8# IHT < PX/3 > 

20440 HV=320#INK P V/3> + < PV AND 7 
20460 BX=2K7-<PX AND 7 > '' 

20470 H1 =81 3 2+H X+H V 

20480 POKEH1 % r PEEK < H1 :> GR BX 

20490 RETURN 


Wie wir in Kapitel 4.1.1 schon gesehen haben, ist das Set¬ 
zen eines Punktes nicht mit einem einfachen Befehl 'POKE 
X + Y/PU' getan, sondern es muß zunächst das Byte bestimmt, 
werden, indem der Punkt gesetzt werden soll, außerdem noch 
das entsprechende Bit im Byte. Da die Angaben der X und Y 
Koordinaten aber im Bereich zwischen 0 und 319 (für X) 
und 0 und 199 (für Y) liegen, wie wir oben gesehen haben 
aber keine lineare Durchnumerierung des Farbspeichers er¬ 
folgt, muß ein relativ kompliziertes Unterprogramm ge¬ 
schrieben werden. 

Um eventuelle Fehler von vornherein auszuschließen (Ille¬ 
gal Quantity Error) wird als erstes geprüft ob für die X 
und Y Koordinaten der zulässige Bereich nicht überschrit¬ 
ten wird. Dann wird eine Hilfsvariable HX mit der Nummer 
der Spalte besetzt, die im 'Textmodus' den X. Punkt bein¬ 
halten würde (vgl Abbildung). 

Im weiteren wird in der Variablen HY die Nummer des Bytes 
im Grafikspeicher abgelegt, die sich wie folgt errechnet: 
Zunächst wird die Zeile ausgerechnet, wie sie im Textmodus 
lauten würde, und dieser Wert wird dann mit 320 multipli¬ 
ziert, weil je Zeile 320 Byte zur Verfügung stehen. D.h. 
eine Zeile im Textmodus umfaßt 40 Zeichen zu je 8 Byte/64 
Bits. Faßt man jetzt ein einzelnes Zeichen, wie es im 
Textmodus Vorkommen könnte, zeilenweise auf, so gibt der 
Ausdruck 'PY AND 7' an, die wievielte der acht Zeilen den 
Punkt enthält. Dies geschieht indem Y-Werte größer al» 
sieben mit dem AND-Befehl ausgeblendet werden, und nur 
noch die letzten drei Bits der in ein Byte umgewandelten 
Zahl zur weiteren Berechnung herangezogen werden. 

Als letztes wird noch die Hilfsvariable BX besetzt, die 
angibt welcher Punkt innerhalb des gewünschten Bytes ge¬ 
setzt werden muß. Auch hier werden wieder die letzten drei 
Bits durch den Ausdruck 'AND 7' zur Berechnung herangezo¬ 
gen, und die Funktion '2 hoch 7 - ...' gibt noch das ent¬ 
sprechende Bit im Byte an. 

Dann wird noch in der Variablen Hl die absolute Speicher 
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zelle im RAM angegeben, indem zu dem Grundwert 8192 noch 
die eben errechneten Werte hinzu addiert werden. Als letz¬ 
tes wird der in BX errechnete Punkt in diesem Byte ge¬ 
setzt. Dies geschieht indem zunächst das Byte ausgelesen 
wird, und das gewünschte Bit mittels 'oder' mit dem aus¬ 
gelesenen Byte verknüpft wird. Das bedeutet, daß egal ob 
ein Punkt gesetzt ist oder nicht, auf jeden Fall immer zum 
Schluß dieses Bit gesetzt ist. 

Zum Schluß noch ein paar Beispiele zum Aufruf des Unter¬ 
programme s: 


1100 REM * * * * * * **** * * * * * * * * * * * * * * * * * * ****** * * *** * 

1101 REM * P IJ N K T E SETZE M * 

1102 REM **************************************** 
11 10 F'X— 1 :PV= 1 :GOSUB20400 

1120 P X = 10 : F'V = 10 s GOSIJB20400 
113 0 P X = 10 0 : P V = 10 O : G O S IJ B20400 
1140 P X =.-10 0 : P V = ■' 15 0 : G Ü 3 U B20400 
1150 pX = 100 : F'V = 160 : G0SIJB20400 
116 0 p X =: 10 0 : F"t'= 17 0 : G G S IJ B20400 
1 170 PX=110:PV=170:GOSUB2G400 
1 180 PX= 120 : F'V“ 170 : GOSUB20400 
I 19 0 p X = 13 0 : P V = 17 0 s G 0 SIJ B20400 


PUNKT SETZEN 20400 - 20490 


Variablen: 

Name ! 

Typ 

! Bereich 

! B e d e u t u n g 

BX ! 

H 

! 0...255 

! H i 1 f sva r i a b le zur 

! 

j 


j 

i 

! Berechnung der Bit- 
! position im Byte 

Hl ! 

j 

H 

! «3192. .. 16383 
| 

! Hilfsvariable für Byte 
! im.RAM 

HX ! 

H 

! 0 ... 319 

! Hilfsvariable zur 

| 

! 


! 

j 

! Berechnung der X-Posi- 
! t ion ( Byte / Zeile ) 

HY ! 

! 

| 

H 

! 0...64000 

j 

i 

! Hilfsvariable zur 
! Berechnung der Y-Posi- 
! t i ori ( Byte in Zeile ) 
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PX ! E ! 0...319 ! Punkt X-Koordinate 

PY ! E ! 0...199 ! Punkt Y-Koordinate 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


keine! 


Verzweigungen nach außen : 


in Ze ! nach ! Bedingung ! Bemerkung 


20410 ! RETURN! PX LT 0 oder 

! ! PX GT 319 

20420 ! RETURN! PY LT 0 oder 

! ! PY GT 199 

20490 ! RETURN! Normales Ende 


4.2 Unterprogramme für den Grafikeinsatz 


Übungsziel: 

- GraPikausgabo v«n einfachen geometrischen Figuren 

- Unterprograminaufrufe mit mehreren Ilierarchie- 
Tbc non 

- Parameterübergabe an Unterprogramme 


In den Pnlgenden Unterkapiteln sollen einige immer wieder¬ 
kehrende geometrische Formen behandelt werden, die mit 
entsprechender Parametervorbesetzurig sehr einfach von 
einem llauptprogramm aufgerufen werden können. Wie Sie 
sicher festste] len werden, ist diese Ausgabe von Grafik- 
ze liehen am Bildschirm sehr langsam, so daß wir an dieser 
Stelle schon auf Kapitel 0.2 verweisen wollen, wo die sel¬ 
ben Routinen noch in Maschinensprache (Assembler) darge- 
sl.fi 1 11 sind. Für das Verständnis ist es jedoch, einfacher 
sich zunächst in Basic sich zu veranschaulichen, was in 
d ieson Unterprogrammen passiert. 
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4.2.1 Linie ziehen 


20610 

IF EX=R 

X OR EV=HY TUEN H2=l : GUT 0213640 

2Ö620 

IF RB8 

E V - R V > < fl B S < E X - fl X > 

THEN H2=1: 

20630 

H2=RB3< 

EX-RX XRBS < EV-RV 


20640 

IFEXCflX 

THENH2=H2*-1 


20650 

143= 1 



206 6 y 

ifev<rvthe:nh3=-i 


20670 

IFEX=RX 

THEH20740 


20680 

FORLL=R 

XT0EXSTEPH2 


20690 

PX=INT C 

I...L. +. 5> 



2 U 7 U 0 p V -- '■ L. L — H X ^ E V—H V .> •••*'E:. X—R X;i + H V 

26710 G 0 S U B 2 G 4 0 0 

20720 HELIXT 

20730 RETURN 

20740 F'X=RX 


2075O F 0 R P V=R V T 0 E V S T E P H 3 


2076 0 G0SIJB20400 
20770 HEXT 
20780 RETURN 


206410 


Mit dem vorliegenden Unterprogramm und unter Zuhilfenahme 
des Unterprogramms zum Setzen von Punkten am Bildschirm, 
wollen wir es ermöglichen, durch Angabe der Anfangskoor¬ 
dinaten (AX, AY) und der Endkoordinaten (EX, EY) eine Li¬ 
nie am Bildschirm zu zeigen. Wie beim Commodore 64 intern 
auch, wird die Y-Achse am oberen Rand festgelegt und 
nicht, wie bei kartesischen Koordinaten üblich, am unteren 
Rand. 

Das Ziehen von Linien ist ein sehr wichtiges Unterprogramm 
da z.B. das Zeichnen von Rechtecken, Segmenten, Quadern 
oder Radien in Kreisen bzw. Ellipsen, alle auf dieses Un¬ 
terprogramm zurückgeführt werden können (vergleiche Bild 
4.2.1). Sogar das Ausfüllen von Rechtecken (Block) und 
Quadern geschieht über das Programm zum Ziehen von Linien. 

Das Ziehen von Linien ist durchaus kein triviales Problem, 
da folgende Punkte besonders berücksichtigt werden müssen: 

- Schrittweite; ist die Schrittweite zu groß, erhält 
man keine voll ausgefüllte Linie, ist die Schritt¬ 
weite zu klein, dauert das Zeichnen zu lange. 

- Negative Steigung; da das Linienziehen am einfach¬ 
sten in einer FÜR...NEXf-Schleife durchzuführen 




] 1 () 


Kapitel 4.2 


Y 


X 




EX, EY 


Spezialfälle 


negative Steigung 
AX<EX 
AY<EY 

Achtung: Y = 0 bei Commodore 
64 am oberen Rand 


AX, AY EX, EY 

X---X 


AY = EY: 

waagrechte Linie 


AX, AY 


AX = EX: 
senkrechte Linie 



Bild 4.2.1: Prinzipielle Möglichkeiten zum Ziehen 
Linien 


von 



Grafische Unterprogramme 


117 


ist, diese aber in der Regel immer vom kleinsten 
zum größten Argument gehen, sind negative Steigun¬ 
gen bei Linien gesondert zu behandeln. 

Das Ziehen von Linien wollen wir anhand des Verhältnisses 
von Anfangs- zu Endpunkt und der daraus resultierenden 
Steigung mit der mathematischen Formel 

Y - Y1 X - XI 

Y2 - Y1 X2 - XI 

bewirken. Als Eingabeparameter für das Unterprogramm sol¬ 
len die vier Variablen AX, EX, AY und EY dienen, die je¬ 
weils die X und Y - Koordinaten von Anfangs- und Endpunkt 
enthalten. Zunächst wollen wir uns der Bestimmung der 
Schrittweite widmen. Ist eine senkrechte (EX=AX) oder 
waagerechte Linie (EY=AY) zu ziehen, so ist die Schritt¬ 
weite für die Schleife zum Setzen der einzelnen Punkte 
gleich '1' zu setzen, was auch das Optimum darstellt. Das 
weitere Berechnen der Schrittweite kann somit übersprungen 
werde n. 

Da wir die Linie in einer FOR...NEXT-Schleife später für 
alle X-lVerte durchlaufen wollen, kann auch die Schritt¬ 
weite von eins beibehalten werden, wenn die Zahl der Ein¬ 
heiten auf der Y-Achse (ABS(EY-AY)) kleiner ist als die 
Zahl der Einheiten auf der X-Achse (ABS(EX-AX)). Die 
Schrittweite '1' ist für eine durchgezogene Linie mit 
Sicherheit ausreichend, jedoch ist bei großen Unterschie¬ 
den die Rechenzeit zum Ziehen der Linie größer als erfor¬ 
derlich. Hier ist auch ein Ansatz für Sie für eine Än¬ 
derung: Man optimiere die Schrittweite. Ist z.B. das Ver¬ 
hältnis der absoluten Beträge in Zeile 20620 größer zwei, 
so genügt es auch jeden zweiten Punkt auf der Linie nur zu 
berechnen und die Schrittweite kann somit verdoppelt wer¬ 
den. Man überlege sich ein allgemeines Verfahren zur op¬ 
timierten Bestimmung der Variablen H2. 

Einen Schritt in diese Richtung macht schon die Zeile 
20630, in der die Schrittweite optimiert wird wenn das 
Verhältnis Einheiten auf der X-Achse / Einheiten auf der 
Y-Achse zu Ungunsten des Abstandes auf der Y-Achse aus¬ 
fällt. Um zu verhindern, daß eine gestrichelte Linie 
gezogen wird, muß hier die Schrittweite auf jeden Fall 
kleiner als angegeben werden. 

Ist das Ende der Linie auf der X-Achse vor dem Anfang der 
Linie gelegen (negative Steigung) so ist die Schrittweite 
umzukehren (Zeile 20640). Ebenso wenn der' Endpunkt auf der 
Y-Achse ‘vor’ dem Anfangspunkt liegt. 
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Wenn die Anfangs-X-Koordinate und End-X-Koordinate gleich 
sind, so würde die folgende Schleife nur ein einziges Mal 
durchlaufen, sodaß für diesen Spezialfall eine Schleife 
für alle Y-Werte durchlaufen werden muß (Zeilen 20740 bis 
20770). 

In den Zeilen 20680 bis 20720 wird für alle X-Koordinaten 
die jeweilige Y-Koordinate anhand oben angeführter Glei¬ 
chung errechnet und ein entsprechender Punkt gesetzt. Die 
X-Koordinate wird noch entsprechend auf eine ganze Zahl 
gerundet, da durch die Schrittweite H2 auch gebrochene 
Zahlen auftreten können. 


Mit einem kurzen Programmstück wollen wir das Ziehen von 
Linien testen, wobei Sie jedoch beachten müssen, daß Sie 
vorher die Grafik einschalten müssen und wie in Kapitel 
4.1 erläutert die entsprechenden RAM-Bereiche besetzen 
müssen (vergleiche Zusammenhang in Kapitel 4.2.9). Mit dem 
Programmstück ab Zeile 1200 wird im Prinzip ein Quader am 
Bildschirm ausgegeben. 


1 £ 0 0 RE M **************************************** 

1201 REN * L I H I E H 2 I E H E H * 

1202 REN **************************************** 

1210 flX=4 0 : fl V=40 : EX=100 :EV=40:G0SUB20600 

1211 FIX—60 : flV=25 : EX-120 :: EV=25 s GOSUB20600 

1212 fl X -• 4 0 : fl V=4 0 : E X=6 0 : E V == 2 5 : G 0 S U B20600 

1220 flX=100:flV=40 : EX=106:EV=70:GOSUB20600 

1221 flX= 120 : FIV=25 s EX« 120 sEV=55 s GOSUB20600 
12 £2 FlX =100 s FlV=40 sEX=l20 s EV=25 s G0SIJB2060© 

1230 flX=100:flV=7O:EX=40:EV=70:G 0SUB20600 

1231 FlX.= 120 : flV=55 : EX=6@ : EV=55 s GOSUB20600 

1232 fl X = 1 © 0 : fl V =7 0 : E X = 12 0 s E V=5 5 : G 0 S IJ B20600 

1240 fl X=4 0 :flV •■= 7 0 : E X=4 0 :: E V=4 0 : G O S IJ B20600 

1241 flX=60 sFlV=55 : EX=60 : EV=25 : GOSUB20600 

1242 FlX=40 : flV=70 s EX=60 : EY=55 s GGSUB20600 


LINIE 


20600 - 20780 

Variablen: 



! Name 

ryp 

! B e r e i c h 

! Bedeutung 

! AX 

E 

! 0 . . . 319 

! Anfang X-Koordinate 


















Gra r i sehe (in t.erproij rainim: 


1 19 


bei I i n i e 

AnTang Y-Koord inate 
bei I in i e 

Ende X-Koordinahe bei 
Linie 

Ende Y-Koord inate bei 
I i n i e 

H i I f sva r i a b 1 e für 
Sehr i Ltwe i Le b. Linien 
Hilf svariable Für 
Sehr i ttweite b. Linien 
Laufvariab 1e be i 
L i n i e n 

Punkt X-Koordinate 
Punkt Y-Koord i nate 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


20710 ! 20400 ! Punkt zeichnen 
20760 ! 20400 ! Punkt zeichnen 


Verzweigungen nach außen : 


in Ze ! nach ! Bedingung ! Bemerkung 


20730 ! RETURN! EX NE AX 
20780 ! RETURN! EX = AX 


AY 

! E 

! 0 . . 

. 199 

EX 

! E 

! 0 . . 

. 319 

EY 

! E 

! 0 . . 

. 199 

H2 

! II 

! Dezimal zahl 

H3 

! H 

! Dezi mal zahl 

LE 

! H 

! AX. 

. . EX 

PX 

! P 

! 0. . 

.319 

PY 

! P 

! 0. . 

. 199 
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20910 EV=IJV 

2 0 9 2 0 G O S U B20600 

20930 REM * UNTERE LINIE * 

20940 HX=EX 

20950 RY=EY 

20960 EX=OX 

20970 EV=IJV 

20980 G 0 S U B20600 

20990 REM * LINKE SEITE * 

21000 RX=EX 

21010 RV=EV 

21020 EX=OX 

21030 EV=ÜY 

21040 G O S U B20600 

21050 RETURN 



O Reihenfolge der Linien 
©von OX, OY nach UX, OY 
© von UX, OY nach UX, UY 
© von UX, UY nach OX, UY 


© von OX, UY nach OX, OY 

OX, OY © UX, UY 



Bild 4.2.2: Veranschaulichung der Variablen und des 
Ablaufes am Rechteck 
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Wie wir an dem letzten Beispielprogramm gesehen haben, ist 
es eine aufwendige Sache einen Quader aus lauter Linien 
zusammenzusetzen. Zunächst wollen wir jedoch einmal das 
vordere und hintere Rechteck in ein Unterprogramm bringen. 
Nachdem das Linien zeichnen schon vorhanden ist, ist das 
Zeichnen eines Rechteckes keine Schwierigkeit mehr. Durch 
zwei Koordinatenpunkte läßt sich ein Rechteck eindeutig 
bestimmen. Diese Punkte müssen natürlich 'linear unabhän¬ 
gig' sein, wie der Fachausdruck bei den Mathematikern da¬ 
für lautet. In unserem Falle haben wir den oberen, linken 
Punkt und den unteren, rechten Punkt eines Rechteckes aus¬ 
gewählt, womit die beiden anderen Punkte auch festliegen. 
Die Koordinaten des oberen linken Punktes wollen wir mit 
OX und OY bezeichnen und die Koordinaten des Punktes unten 
rechts mit UX und UY. 

Wie aus der Abbildung ersichtlich, ergibt sich dann sehr 
einfach das entsprechende Programmstück in dem nur die 
Variablen AX, AY, EX und EY vorbesetzt werden und dann das 
Unterprogramm zum Ziehen einer Linie aufgerufen wird. 

Das Besetzen von Variablen nimmt zwar nicht sehr viel 
Rechenzeit in Anspruch und auch nicht viel Speicherplatz, 
aber wer will, kann sich überlegen, wie durch vertauschen 
der Reihenfolge in der die Linien gezeichnet werden, Zu¬ 
weisungen und somit Programmzeilen, Speicherplatz und 
Rechenzeit gespart werden kann. Zum Abschluß noch ein 
kurzes Testprogramm: 


REM 3443 

REM * 

44 4 444 4 

R E C 

44 4- :■(' 

H T 

444 

E 

:44: 444444 *4 + 4 

L I-: E E 3 

44 44 44 4: 44:4 4 

C H : i e: U 4 

REM 4 ; 

• 444 444 + 

OV -: :i. 00 : 

4 4 44 

44* 

4 •« 4 + * , 4 ; ,i <|| 

1 1 Jö SGOEUi.: 

+: ’(*: i/t >ji i|i -iji; ^ 

ü":öö00 


RECHTECK 

ZEICHNEN 

20800 - 21050 

! Variablen: 

1 1 

Name 

Typ 

! Bereich 

! Bedeutung 

AX 

P 

! 0...319 
! 

! Anfang X-Koordinate 
! bei Linie 

AY 

P 

! 0 . . .199 

i 

! Anfang Y-Koordinate 
! bei Linie 
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! EX ! 

! j 

P ! 

! 

0. 

. .319 


! Ende X-Koordinate bei ! 

! L i n ie ! 

! EY ! 

i j 

P ! 

! 

0 . 

. . 199 


! Ende Y-Koordinate bei ! 

! Linie ! 

! OX ! 

j ! 

! ! 

E ! 

! 

! 

0. 

. . 319 


! Obere X-Koordinate ! 
! bei Rechteck (links) ! 
! und Block ! 

! OY ! 

j j 

i ; 

; j 

E ! 

! 

! 

i 

0. 

. . 199 


! Obere Y-Koordinate ! 

! bei Rechteck (links) ! 

! und Block ! 

j ! 

i ; 

! UX ! 

! ! 

! ! 

! 

E ! 

! 

j 

0. 

. . 319 


! i 

! Untere X-Koordinate ! 

! bei Rechteck (rechts) ! 

! und Block ! 

! UY ! 

! ! 

! ; 

i 

E ! 

j 

! 

0. 

. . 199 


! Untere Y-Koordinate ! 
! bei Rechteck (rechts) ! 
! und Block ! 

I 

! Unterprogrammaufrufe : 

i i 

! i n ! 

nach 

| 

Zweck 



! 20860 ! 

20600 

! 

Linie 

ziehen 


! 20920 ! 

20600 

! 

Linie 

ziehen 


! 20980 ! 

20600 

i 

Linie 

ziehen 


! 21040 ! 

i 

20600 

j 

Linie 

ziehen 


! Verzweigungen 

1 

nach außen : 


! in Ze ! 

nach 

! 

Bedingung 

! Bemerkung 

! 21050 ! 

RETURN! 

Normales Ende 

! 


4.2.3 Quader zeichnen 

21210 REM * VORDERES RECHTECK * 

21220 OX=X1 
21230 ÜV-Vl 
21240 UX=X2 
21250 IJV--V2 
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212 6 6 G 0 S U B 2 ti ö ü o 

21270 REM * HINTERES RECHTECK * 

212S0 ÜX=X3 

21290 0V=V3 

21300 I.J X=X 2 -- X1 + X 3 

213.10 UV=V2—V1+V3 

21320 G 0 SIJ Ei20800 

21330 REM * LINIE ÜBEN LINKS * 

21340 flX=X1 
2 1 3 S 0 Fl V — V 1 

21370 EV=V3 
21380 G O S U B206© 0 

21390 REM * LINIE OBEN RECHTS * 

21400 AX--X2 
21410 FiV=Vl 

21430 EV=V3 
2144 0 G 0 S LJ B 2 0 6 0 0 

21450 REM * LINIE UNTEN RECHTS * 

21460 RX=X2 
2.1470 RV=V2 
2.1480 E X=X 2 - X1 + X 3 
21490 EV=V2-V1+V3 
21500 G 0 S IJ B 2 © 6 8 0 

21510 REM :+ LINIE UNTEN LINKS * 

21520 RX=X1 
21530 RV=V2 
21540 EX=X3 
21550 EV=V2-V1+V3 
2156 © G 0 S U Ei20600 
21570 RETURN 

Nachdem wir in den beiden vorigen Kapiteln das Linienzie¬ 
hen und Rechtecke zeichnen besprochen haben, ist es nun 
sehr einfach auch einen Quader zu zeichnen, denn ein Qua¬ 
der besteht im Prinzip aus nichts anderem als aus dem vor¬ 
deren und hinteren Rechteck, sowie vier Verbindungslinien 
jeweils an den Kanten. 

Für die Bestimmung eines Quaders reichen drei geschickt 
gewählte Punkte aus. Bei der Anzahl von mnemotechnischen 
Variablen, die wir bisher verwendet haben und auch noch 
brauchen werden, ist es in diesem Falle das einfachste die 
drei Punkte mit (XI,Y1),(X2,Y2) und (X3,Y3) zu bezeichnen. 
Näheres geht aus Abbildung 4.2.3 hervor. Der besseren 
Übersicht halber, wurden auch noch die Variablen XI, X2, 
X3, Yl, Y2 und Y3 in ihrer Vektordarstellung beigefügt um 
die benötigten Berechnungen optisch besser zu gestalten. 


Betrachtet man sich die Abbildung so wird die Wirkungs 
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X3|-► 

X2i- 

XII-» 

Y2—Y1xY3 Y1 Y2 Y3 



Bild 4.2.3: Veranschaulichung der Gegebenheiten an einem 
Quader 

weise des Programmstückes sofort ersichtlich. Zunächst 
werden die beiden Rechtecke gezeichnet, wobei hierzu die 
Aufrufparameter OX, OY ; UX und UY mit den entsprechenden 
Werten besetzt werden und dann das Unterprogramm zum 
Rechteck zeichnen aufgerufen wird. In den vier weiteren 
Abschnitten werden, wie in den Bemerkungen angegeben, die 
vier Linien (in der Zeichnung numeriert von 3 bis 6) durch 
einen Unterprogrammaufruf gezeichnet, nachdem die entspre¬ 
chenden Werte für die Linie (AX, AY, EX und EY) vorbesetzt 
wurden. 

An dieser Stelle kann man sich auch überlegen, was in den 
Programmen geändert werden muß, um Parallelogramme bzw. 
Quader aus einem Blickwinkel zu zeichnen, wo die Vorder¬ 
seite keine rechten Winkel enthält. Das Testprogramm: 


i. 4 1 0 X 1 ■=: 2 0Ö S'l'l -- 50 
1420 X2=230 : V 2 =7 8 
1430 K3~--212 ::V3=40 
1 440 003LIB21200 
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I 


QUADER ZEICHNEN 21200 - 21570 


Variablen: 


Name ! 

Typ ! 

Bereich 

! Bedeutung 

AX ! 

! 

P ! 

! 

0 . ..319 

! Anfang X-Koordinate 
! bei Linie 

AY ! 

| 

P ! 

i 

0 . ..199 

! Anfang Y-Koordinate 
! bei Linie 

EX ! 

j 

P ! 

j 

0...319 

! Ende X-Koordinate bei 
! Linie 

EY ! 

j 

P ! 

j 

0...199 

! Ende Y-Koordinate bei 
! Linie 

OX ! 

j 

P ! 

i 

0...319 

! Obere X-Koordinate 
! bei Rechteck (links) 

OY ! 

| 

P ! 

! 

0 . . . 199 

! Obere Y-Koordinate 
! bei Rechteck (links) 

UX ! 

! 

P ! 

! 

0...319 

! Untere X-Koordinate 
! bei Rechteck (rechts) 

UY ! 

! 

P ! 

! 

0. ..199 

! Untere Y-Koordinate 
! bei Rechteck (rechts) 

XI ! 

! 

E ! 

! 

0 . . .319 

! 1. X-Koordinate bei 
! Quader (oben links) 

X2 ! 

! 

E ! 

j 

0 . ..319 

! 2. X-Koordinate bei 
! Quader (unten rechts) 

X3 ! 

! 

! 

E ! 

1 

! 

0...319 

! 3. X-Koordinate bei 
! Quader (oben links 
! h i n t e n) 

Y1 ! 

! 

E ! 

j 

0. . . 199 

! 1. Y-Koordinate bei 
! Quader (oben links) 

Y2 ! 

! 

E ! 

j 

0. . . 199 

! 2. Y-Koordinate bei 
! Quader (unten rechts) 

Y3 ! 

! 

E ! 

! 

0. . . 199 

! 3. Y-Koordinate bei 
! Quader (oben 1 i nks 

! 

i 


! hinten) 

Unterprogrammaufrufe : 


i n 

! nach 

! Zweck 


2 1260 

2 0800 

! Rechteck ze 

iebnen 

21320 

! 20800 

! Rechteck zeichnen 
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21380 

21440 

21500 

21560 

20600 

20600 

20600 

20600 

! Linie ziehen 
! Linie ziehen 
! Linie ziehen 
! Linie ziehen 



Verzweigungen 

nach außen : 



in Ze 

nach 

! Bedingung 

! Bemerkung 


21570 

RETURN! Normales Ende 

! 



4.2.4 Block zeichnen 


21600 REM **#*****#*****#*#***#******##**#**###5ts*# 

21601 REM * B L 0 C K Z E I C H N E H * 

21602 REM **************************************** 

21618 flX=OX 
21620 EX=UX 
21630 FQRBL=0VTOUV 
21640 flV=BL 
2:1650 EV--BL 
21660 G O S U B20600 
2:1670 HEXT 
21630 RETURN 


Mit diesem Unterprogramm wird ein farbig ausgefülltes 
Rechteck (Block) am Bildschirm ausgegeben. Dies geschieht 
in dem einzelne Linien parallel am Bildschirm ausgegeben 
werden. Dazu werden die X-Werte von Beginn und Ende der 
Linie konstant gehalten. Für die Werte von Y wird eine 
Schleife mit Schrittweite 1 durchlaufen, so daß ein Block 
quasi aus ABS(EY-AY) Linien besteht. Die Abbildung zeigt 
im Prinzip eine Momentaufnahme. Obwohl hier einzelne pa¬ 
rallele Linien gezogen werden, kann doch mit den gleichen 
Variablen wie beim Rechteck gearbeitet werden. Die glei¬ 
chen Parameter wurden hier deshalb genommen, um nicht noch 
mehr Variablen für ein umgebendes llauptprogramm zu sper¬ 
ren. Außerdem ergibt sich dadurch ein Analagon bei dem 
Aufruf von Block und Rechteck. 
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OX, OY 


Programm¬ 

schleife 



UX, UY 


Bild 4.2.4: Vorgehensweise beim Zeichnen eines Blockes 

1500 REM **************************************** 

1501 REM * B L. 0 C K Z E I C H N E N * 

1502 REM **************************************** 

1510 0 X =•• 150 :0 V=S 0 
1520 UX=170:UV=100 
1530 G0SUB216U0 


BLOCK ZEICHNEN 21600 - 21680 


Variablen: 


Name 

Typ 

! Bereich 

! Bedeutung 

AX 

P 

! 0 . . 

j 

.319 

! Anfang X-Koordinate 
! bei Linie 

AY 

P 

! 0 . . 
j 

. 199 

! Anfang Y-Koordinate 
! bei Linie 

BL 

H 

! OY. 

. . UY 

! Laufvariable 

EX 

P 

! 0. . 

j 

.319 

! Ende X-Koordinate bei 
! Linie 

EY 

P 

! 0. . 

! 

. 199 

! Ende Y-Koordinate bei 
! Linie 

OX 

E 

! 0. . 

j 

. 319 

! Obere X-Koordinate 
! (links) 

OY 

E 

! 0. . 

| 

. 199 

! Obere Y-Koordinate 
! (links) 

UX 

E 

! 0. . 

.319 

! Untere X-Koordinate 
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1 

UY ! 

! 

i 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II o 

II CP 

II 1 

II o 

II 

II — — — 

II 

II 

II 

II LÜ 

II 

! (rechts) ! 

! Untere Y-Koordinate ! 

! (rechts) ! 

1 

Unterprogrammaufrufe : 

1 1 

! i n 

nach 

Zweck 


! 21660 
i - 

2 0600 

Linie ziehen 


! 

! Verzweigungen nach außen : ! 

! 

i . .. 

! in Ze 

nach 

Bedingung 

! Bemerkung 

! 21680 

RETURN 

Normales Ende 

• 


4.2.5 Kreis und Ellipse zeichnen 


21810 IFRX>RV TUEN H2=RX 
21820 IFRV=>RX TUEN H2=RV 
21830 FORLK=0TO2*irSTEP 1 /H2 
21840 PX== I NT C KX+RX*S IN < LK > +. 5 > 
21850 PV = 1 NT <KV+RV#COS < LH:.’ > +. 5 > 
218 6 Ö D O S U B20400 
21870 HEXT 
21880 RETURN 


Kreis und Ellipse können zusammen behandelt werden, da der 
Kreis eine Sonderform der Ellipse darstellt. Der einzige 
Unterschied bei einer Ellipse besteht darin, daß zwei Ra¬ 
dien, je einer für die X- und die Y-Richtung, gegeben sein 
müssen. Diese Radien wollen wir mit RX und RY bezeichnen. 
Bei einem Kreis würde die Bedingung RX=RY erfüllt sein. 
Ähnlich wie bei der Linie stellt sich auch bei Kreis / 
Ellipse wieder das Problem der Schrittweite, in welchem 
Abstand die Punkte errechnet werden sollen. Das in diesem 
Unterprogramm beschriebene System geht von dem Umfang aus, 
der dem größeren Radius zugeordnet ist. Beim Zeichnen der 
Bogen mit dem längeren Radius ergibt sich optimal eine 
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Kreis/Ellipse 



Bild 4.2.5: Zusammenhänge zwischen Kreis/Ellipse, Segment 
und Radius 

ausreichend ausgefüllte Kurve, jedoch bei Kreisbogen die 
mehr zu dem kürzeren Radius tendieren geht das Zeichnen 
etwas langsamer, da einzelne Punkte mehrfach berechnet 
werden. Der geneigte Leser mag sich anhand des Verhält¬ 
nisses der beiden Radien zueinander eine optimale Schritt¬ 
weite überlegen. In dem dargestellten Unterprogramm wurde 
von der Überlegung ausgegangen, daß eine Ellipse mit zwei 
verschiedenen Radien im Umfang auf jeden fall kleiner ist, 
als ein Kreis mit dem größeren der beiden Radien. Da der 
Umfang eines Kreises mit dem größeren Radius 2*PI*H2 be¬ 
trägt,die Schleife von Hause aus aber von 0 bis 2*PI 
läuft, kann als Schrittweite durchaus 1/H2 herangezngen 
werden. 

Wie das Unterprogramm zum Zeichnen einer Linie, so greift 
auch das Unterprogramm zum Zeichnen eines Kreises auf das 
Unterprogramm zum Setzen eines Punktes zurück. Der zu se¬ 
tzende Punkt errechnet sich aus den im Programm angegebe¬ 
nen Formeln wobei KX und KY jeweils die Mitte 1 punktkoor- 
dinaten des Kreises sind, und die Winkelfunktionen Sinus 
für die X-Richtung und Cosinus für die Y-Richtung für ein 
korrektes Ergebnis jeweils noch mit RX und RY multipli¬ 
ziert werden müssen. Das kurze Testprogramm befindet sich 
auf der nächsten Seite. 
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.1 600 Frh.r-1 .♦ h44:h:hh:hsh* : hshshsh:hsh h sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh:+; sh sh 
U'01 REM * |.; fi e I S Z E I C H N E N * 

.1 s ü 2 R E' M sh t: sh sh: hhsh :, h sh ;h 4 4 sh sh sh sh sh sh * sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh sh 
1610 KK=20@:KV™150 
16 2 V R X - 2 5 : P S 1 = 10 
1 6 3 0 G 0 GUI:::. 2 1 S 0 0 


KREIS ZEICHNEN 


21800 - 21880 


Variablen: 


Name ! 

Typ ! 

Bereich 

! Bedeutung 


H ! 

! 

Dezima1zah1 

! Hilfsvariable für 
! Schrittweite 


E ! 

j 

0. . .319 

! Kreismittelpunkt 
! X-Koordinate bei Kreis 


j 


! und Eilipse 


E ! 

! 

0. . . 199 

! Kreismittelpunkt 
! Y-Koordinate bei Kreis 


! 


! und Ellipse 


H ! 

! 

0 . . .2 * PI 

! Laufvariable bei 
! Kreis und Ellipse 


E ! 

-159...159 

! Radius in X-Richtung 


E ! 

-99...99 

! Radius in Y-Richtung 

Unterprogrammaufrufe : 

i n 

! nach 

! Zweck 


21860 

! 20400 

! Punkt setzen 


Verzweigungen 

nach außen : 


in Ze 

! nach 

! Bedingung 

! Bemerkung 

21880 

! RETURN! Normales Ende 

1 
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4.2.6 Segmente zeichnen 


2.? 2 20 

11. H- 

ES-HLI 

i OE US 1 1 i "-.N 


2222:0 

! 1 . 

1 

i. '368 


2224 0 

i 1 •: 

L. S i- S 

•■! > <K •' n . ' 340 


222 ,; :2:i 

FIX-:. 

I Ni •. I- 

i i 'N N - H2 ■ 

f .. 

22220 

MV 

:i N ' F < K 

i , tR'T+:C0S<H2 ■ 

I- .. 

2. 2 20 

EX-.: 

1 EIT >: E 

<4 EX4 :5 I 1 ■ H3 > 

.. 

2:2200 

1 

I NT • K 

i' i RV*COS ■. U3 > 

I » 

222 :‘0 

OOS 

1 !r:..?0c: 

10 


. : :00 

NE. 

i 



223 . 1 . 0 

E:ET 

LJ RN 




Auch das Zeichnen von Segmenten ist wieder auf das Zeich¬ 
nen von Linien zurückzuführen, jedoch ähnelt die Berech¬ 
nung des Anfangspunktes und des Endpunktes der Linie den 
Funktionen, die im letzten Kapitel benötigt wurden. Zur 
Berechnung eines Kreisausschnittes sind relativ viele Va¬ 
riablen an das Unterprogramm zu übergeben. Dies sind zum 
einen die für den Kreis benötigten Variablen KX und KY, 
für den Mittelpunkt und RX und RY für die Radien bzw. der 
Ellipse, sowie der Anfangswinkel des Ausschnittes und der 
Endwinkel (AW, EVV) und die Schrittweite (SW) in Grad, für 
welche die Linien gezogen werden sollen . 

In den beiden Hilfvariablen H2 und H3 wird der eingegebene 
Winkel in Grad für jeweils die Anfangs- und Endpunkte 
eines Segmentes umgerechnet, so daß auch anschließend wie¬ 
der die Winkelfunktionen Sinus und Kosinus herangezogen 
werden können. Der Anfangs- und der Endpunkt des Segmentes 
bilden dann auch wieder die Parameter AX, AY, EX und EY 
zum Aufrufen des Unterprogramms zum Ziehen eine Linie. 

Das Testprogramm: 


171U 
1720 
1730 
1 740 
1750 


1OO sKV= 150 
RX—55 : E:V=30 
R1.I--0 : ELI -::208 


! I TO 

0031.1822200 
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SEGMENTE ZEICHNEN 


22200 - 22310 


Variablen: 


Name 

! Typ 

! Bereich 

! Bedeutung 

AX 

! P 

j 

! 0...319 
! 

! Anfang X-Koordinate 
! bei Linie 

AY 

! P 

j 

! 0...199 
! 

! Anfang Y-Koordinate 
! bei Linie 

AlV 

! E 

! 0...360 

! Anfangswinkel 

EX 

! P 
! 

! 0...319 

! 

! Ende X-Koordinate bei 
! Linie 

EY 

! P 

j 

! 0...199 
! 

! Ende Y-Koordinate bei 
! Linie 

EW 

! E 

! 0 . . .360 

! Endwinke 1 

H2 

! M 
! 

! 0... 2 * PI 
! 

! Hilfsvariable für 
! Winkelumrechnung 

KX 

! E 

i 

j 

! 0...319 

j 

j 

! Kreismittelpunkt 
! X-Koordinate bei Kreis 
! Ellipse und Segment 

KY 

! E 

j 

j 

! 0. . . 199 
! 

! 

! Kreismittelpunkt 
! Y-Koordinate bei Kreis 
! Ellipse und Segment 

LS 

! H 

! AW...EW 

! Laufvariable 

RX 

! E 

! -159...159 

! Radius in X-Richtung 

RY 

! E 

! -99...99 

! Radius in Y-Richtung 

SW 

! E 

! 0...360 

! Schrittweite 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


22290 ! 20600 ! Linie ziehen 


Verzweigungen nach außen : 


i n Ze ! 

nach ! 

Bedingung 

! Bemerkung 

22310 ! 

RETURN! 

Normales Ende 

i 
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4.2.7 Quader ausfüllen 


224 1 e 

RX=X 1 

224 20 

EX=X2 

22430 

F ORBLsiV 1TOV 

22448 

riV-BL. 

224 33 

EV-BL 

22 408 

Ü9SI.JB20600 

224 rt : J 

HEXT 

224Ö0 

ID 

22490 

EYXV 3 

22580 

FÜRBL=X1TOX 

22 51 0 

RX----BL 

2'2520 

EX=BL+X3 -X :l 

223 m 

GOSUB20600 

22540 

HEXT 

22550 

RXkX2 

22560 

EX=X2+X3--X1 

22570 

FORBL=V1TOV 


FIV-BL 

22596 

EV--BL-V1+ V3 

22600 

GOSI. IE: 2 0600 

22b 1 Li 

HEXT 

22620 

RETURN 


Beim Unterprogramm zum Ausfüllen eines Quaders wird zu¬ 
nächst ein Block für die Vorderfront gezeichnet. Das Auf¬ 
rufen des Unterprogrammes zum Zeichnen eines Blockes wird 
an dieser Stelle nicht aufgerufen, da dann weitere vier 
Variablen hätten vorbesetzt werden müssen. Ähnlich wie das 
Zeichnen eines Blockes geht das Ausfüllen eines Quaders 
vor sich. Wie gesagt wird zunächst die Vorderfläche gezei¬ 
chnet, dann die obere Fläche und zm Schluß die rechte Flä¬ 
che, wobei diese auch jeweils durch parallel geführte Li¬ 
nien farbig ausgefüllt werden. 

Bei der Vorderfläche werden auch, wie beim Block, die X- 
Werte festgehalten und eine Schleife für alle Y-Werte 
durchlaufen. Anders sieht das bei der oberen Fläche aus; 
dort werden die Y-Werte festgehalten und eine Schleife Für 
alle X-Werte wird durchlaufen, sodaß die Fläche von links 
nach rechts ausgefüllt wird. Im dritten Abschnitt erfolgt 
das Ausfüllen der Fläche wieder von oben nach unten, so 
daß auch hier wieder die X-Werte konstant sind und eine 
Schleife für alle Y-Werte durchlaufen wird. Auf der näch¬ 
sten Seite wieder das Testprogramm. 
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1880 I? E M 4 * 444* * * * $ * 4 4 4 444444 44 4444 * 44 4:4 .4 44 4 4 * *44 
180 !. REM * Q ü fl D E R fl U S F U ELLE N * 
:l 802 REM * *4 444 44 44444 444 444 4444444444444444:44444 
:! 8.1.0 XI -,-:l00 :V1 =50 

1 84 0 8 O SU B2 2 400 



QUADER AUSFÜLLEN 

22400 - 22620 

! Variablen: 




! Name ! Typ 

! Bei’eich 

! Bedeutung 

! AX 

! P 

j 

! 0. . 

! 

. 319 

! Anfang X-Koordinate 
! bei Linie 

! AV 

! P 
| 

! 0 . . 

! 

. 199 

! Anfang Y-Koordinate 
! bei Linie 

! BL 

! H 

! Yl. 

. . Y2 / 

! Laufvariable 


j 

! XI. 

. . X2 

j 

! EX 

! P 
j 

! 0. . 

! 

.319 

! Ende X-Koordinate bei 
! Linie 

! EY 

! P 

j 

! 0. . 

j 

. 199 

! Ende Y-Koordinate bei 
! Linie 

! XI 

! E/A 

j 

! 0. . 

j 

. 319 

! 1. X-Koordinate bei 
! Quader (oben links) 

! X2 

! E/A 

j 

! 0. . 

| 

.319 

! 2. X-Koordinate bei 
! Quader (unten rechts) 

! X3 

! E/A 

i 

! 

! 0. . 

j 

j 

. 319 

! 3. X-Koordinate bei 
! Quader (oben links 
! hinten) 

! Y1 

! E/A 
! 

! 0. . 

j 

. 199 

! 1. Y-Koordinate bei 
! Quader (oben links) 

! Y2 

! E/A 

I 

! 0 . . 

j 

. 199 

! 2. Y-Koordinate bei 
! Quader (unten rechts) 

! Y3 

! E/A 

i 

! 0. . 

! 

. 199 

! 3. Y-Koordinate bei 
! Quader (oben links 


j 

! 


! hinten) 
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Unterprogrammaufrufe : 

1 


! in 

nach ! 

Zweck 


! 22460 
! 22530 
! 22600 

i 

20600 ! 
20600 ! 
20600 ! 

Linie ziehen 

Linie ziehen 

Linie ziehen 


! Verzweigungen nach außen : 

1 _ _ _ _ _______ __________ 


! i n Ze 

nach ! 

Bedingung 

! Bemerkung 

! 22620 

RETURN ! 

Normales Ende 

! 


4.2.8 Radius zeichnen 


0 ff 

K-KX 



u ff 

'=1 V 



0 i t; 

;::=EU*2*it,-'360 



ö e: 

: :.i i rr ■ i ... :-i r i : 

•: H2 > - 

k .. !::■ 

0 E'i 

;-V: IN 1" ■: KV+PV^COS 

< ii2 :■ ■ 

y .. 5 

10 Cif 

jSUEi£06C:i0 



Ü Et 

tuen 




Audi das EinzeLchnen eines Radius in einen Kreis bzw. eine 
Ellipse ist wieder das Ziehen einer Linie. Da ein Radius 
definitionsgemäß vom Kreismittelpunkt ausgeht, werden auch 
die Werte für den Anfang der Linie mit den Mittelpunkts- 
Koordinaten besetzt. Anschließend erfolgt die Berechnung 
des Punktes auf dem Kreisumfang analog der Berechnung bei 
den Segmenten, da ja der Endpunkt eines Radius gleichzei¬ 
tig auch der Beginn oder das Ende eines Segmentes sein 
kann. 

Testprogramm für alle vorher gezeichneten Segmente: 

:l. .51 0 loi-:: 1 00 : KV~ i ,: ,3 
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1.940 

RN =--40 

194 1 

GOSUB22800 

1950 

RN=80 

1951 

G0SIJB22800 

I960 

RN=120 

1961 

GOSIJB22S00 

1970 

RW=160 

1971 

G 0 S I.J B22800 


RADIUS ZEICHNEN 22800 - 22870 


Variablen: 



Name 

i Typ 

! Bereich 

! Bedeutung # 

AX 

! P 

! 

! 0...319 
| 

! Anfang X-Koordinate 
! bei Linie 

AY 

! P 
! 

! 0...199 
| 

! Anfang Y-Koordinate 
! be i Linie 

EX 

! P 
! 

! 0...319 
! 

! Ende X-Koordinate bei 
! Linie 

EY 

! P 

j 

! 0...199 
! 

! Ende Y-Koordinate bei 
! Linie 

H2 

! H 
! 

! 0 . . . 2 * PI 
j 

! Hilfsvariable für 
! Winkelumrechnung 

KX 

! E 
! 
j 
! 

! 0...319 
! 
j 
! 

! Kreismittelpunkt 
! X-Koordinate bei Kreis 
! Ellipse, Segment und 
! Radius 

KY 

! E 
! 

! 

i 

! 0...199 
j 
j 
! 

! Kreismittelpunkt 
! Y-Koordinate bei Kreis 
! Ellipse, Segment und 
! Radius 

RW 

! E 
! 

! 0...360 
i 

! Radiuswinkel von 0 
! Grad an gerechnet 

RX 

! E 
! 

! 

! -159...159 

1 

! 

! Radius in X-Richtung 
! bei Kreis, Ellipse, 

! Segment und Radius 

RY 

! E 

j 

j 

! —99...99 

i 

! Radius in Y-Richtung 
! bei Kreis, Ellipse, 

! Segment und Radius 
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Unterprogrammaufrufe : 


in ! nach ! Zweck 


22860 ! 20600 ! Linie ziehen 


Verzweigungen nach außen : 


in Ze ! nach ! Bedingung ! Bemerkung 


22870 ! RETURN! Normales Ende 


4.2.9 Zusammenfassung 


Um das Nachschlagen zu erleichtern und eine besseren Über¬ 
blick zu geben, haben wir im folgenden das Programm1isting 
der Kapitel 4.1 und 4.2 vorgestellt und die Tabelle der 
Variablen nochmals als Ganzes abgedruckt. Da bis auf die 
Eingabeparameter alle Variablen innerhalb der Unterpro¬ 
gramme tabu für ein umgebendes Hauptprogramm sind, ist 
eine zusammenfassende Tabelle aller Variablen der Unter¬ 
programme sehr hilfreich bei Verwendung der Zeilen ab 
20000 als Unterprogramm. 


Bildschirm 



Bild 4.2.9: Zusammenhang der grafischen Unterprogramme 
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10 POKE53280, 1 1 

20 POKE53281,11 

30 V=53248 : REM ADRESSE VIC 

1000 REM **************************************** 

1001 REM * * 

1002 REM * BEISPIELAUFRUFE * 

1003 REM * * 

1004 REM **************************************** 

1005 REM : 

1007 REM **************************************** 

1008 REM * G R fl F I K E I N * 

1009 REM **************************************** 

1010 ZF=7 
1020 HF=S 

1030 GOSUB20010 

1099 GETA$:IFA$=""TUEN1099 

1100 REM **************************************** 

1101 REM * P U M K T E SETZEN * 

1102 REM **************************************** 

1110 PX= 1 : F"T:= 1 : GOSUB20400 
112 0 P X =10: P V = 10 :: G 0 S U B20400 
1130 P X = 10 0 : P V = 10 0 : G 0 S U B20400 
1 140 P X = 10 0 : p V = 15 0 : G OSO B20400 
1150 P X = .10 0 : P V = 16 0 : G 0 S U B20400 
1160 P X = 10 0 : P V = 17 0 : G 0 S LJ B20400 
1 170 F'X= 110 : PV= 170 s GOSUB20400 
1180 PX=120:PV=170: G0SUB20400 
1190 F'X= 130 : F"T= 170 : GOSUB20400 

1199 GE rm :IFA*=""TUEN1199 

1200 REM **************************************** 

1201 REM * LINIEN ZIEHE N * 

1202 REM **************************************** 
1210 fl X=4 0 : fl V = 4 0 : E X = 10 0 : E V=40: G 0 SIJ B20600 


1 

21 1 

14 X 

=60 : 

AV= 

•—icr 

: EX 

= 120 

: E 

iy_•—i 

er 

: GOSUB 2 

0600 

1 

212 

flX 

=40 : 

9V= 

40 

: EX 

=68 : 

ES- 

_-~icr 

: 

3 OS UB 20 

600 

1 

220 

AX 

= 100 

: fl'r 

=4 

0 :E 

<=10 

0 ;; 

E't'= 

r" 

0 ; GOSUB 

20600 

1 

221 

AX 

= 120 

: fl'r 

= cl' 

5 :E 

<=12 

0 : 

EV= 

5 

5 : GOSUB 

2Ö600 

1 

222 

flX 

= 100 

:fl'r 

r.= 4 

0 :E 

<= 12 

0 s 

EV= 

2 

3 : GOSUB 

20600 

1 

230 

AX 

= 1 00 

: flV 

~.~P 

0 : E 

<=40 

:E 

V=7 

0 

: GOSUB 2 

0600 

1 

231 

AX 

= 120 

: fl'r 


5 :E 

<=60 

sE 

V=5 

5 

: GOSUB 2 

0600 

1 

2-32 

FIX 

= 1 00 

: fl'r 

= 7 

0 : E 

<= 12 

0 : 

EV= 

5 

5:GOSUB 

20600 

1 

240 

19 X 

=40 : 

9 V 

70 

: EX 

=40 :: 

E't 

=40 

: 

GOSUB20 

600 

1 

24 1 

AL 

= 60 2 

flV= 

55 

: EX 

=60 : 

E't 

=25 

: 

GOSUB 20 

600 


1242 AX=40:AV=70:EX=60 sEV=55:GO3ÜB2060© 

1299. GETAT:IFfl*=""THEN1299 

1300 REM **************************************** 

1301 REM * R E C H T E C K Z E I C H N E N * 

1302 REM **************************************** 
1310 0X = 120 :0V = 1Ö 0 :1J X = 14 8 :1.J V =13 O : G 0 S U B20800 

1399 GETfl-f : IFA$= " " THEN 1399 

1400 REM **************************************** 
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1401 REM * Q U ADER Z E I C H H E N * 

1482 REM **************************************** 

1410 X1=£00:V1=50 
1420 X2=230:V2=78 
1430 X3=212:V3=40 
14 4 0 G 0 S LI Ei £ 1 2 0 0 

1499 GETR-f : I FR$= " "THEN1499 

1500 REM **************************************** 

1501 REM * B L 0 C K ZEICHNEN * 

1502 REM **************************************** 

1510 0X =150 :0V=S Ei 
1520 IJX= 170 : UV= 100 
1530 G 0 SIJ E: 21 6 0 0 
1599 GETfi$:IFR*=""THEN1599 

1608 REM **************************************** 
1601 REM * K REIS Z E I C H N E N * 

1682 REM **************************************** 

1610 KX=20O:KV=150 
162 0 R X=25 ü R V=18 
163© G 0 S U B 21800 

1699 GE TR*:IFR*=""THEN1699 

1700 REM **************************************** 
17EU REM * S E G M E H T E Z E I C H N E N * 
1702 REM **************************************** 
1710 KX=100:KV=150 

1720 RX=55:RV=30 
1730 RN=0 : ELI=2 Ei Ei 
1740 SW=48 
;!. 7 5 Ei G Ü S l J E:22200 

1798 GETR*:I FR*=""THEN1799 

1799 Ei 0 T 019 Ei 0 

1800 REM **************************************** 

1801 REM * Q U R DER R U S F U E L L E N * 

1802 REM **************************************** 

1810 XI=100:V1=50 
1820 X2=130:V2=70 
1830 X3=l12:V3=40 
1848 Ei 0 S U B£ 2400 

1899 GETR*:IFR*=""THEN1899 

1900 REM **************************************** 

1901 REM * RR D I U S Z E I C H N E N * 

1902 REM **************************************** 

1910 KX=100:KV=150 

1928 RX=55:RV=30 

.1.930 RW=0 

1931 G O SI J Ei228Ei Ei 

1940 RW=40 

19 41 Ei Ei S U Ei22800 

1950 FW=80 

1951 G O S IJ Ei228Ei Ei 
I960 RW=120 
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1961 GUSÜE22S00 

1970 RW=168 

1971 G0SUB22S00 

1999 ÜETRT : I FR$ =" " THEH1999 

9000 REM **************************************** 

9001 REM * 13 R R F 1 K R U S * 

9002 REM **************************************** 

9990 G 0 SIJ B20200 

9999 END 

20000 REM **************************************** 

20001 REM * * 

20002 REM * G R R F I S C HE R O IJ TIME H * 

20003 REM * * 

20004 REM **************************************** 

20005 REM : 

20006 REM **************************************** 

20007 REM * 13 R Fl F I K E I N * 

20008 REM **************************************** 

20020 POKEV+17, 59 : REM BVTE : 00111011 

20030 FOKEV+24... 24 
2 0@40 F0RLV=1024TÜ2023 
20050 PÖKELV,HF+16*2F 
20060 NEKT 

20070 F 0 R L V=819 2 T01638 3 
20080 PQKELV,0 
20090 HEXT 
20100 POKE53280, HF 
20110 RETURN 

20200 REM **************************************** 

20201 REM * G R R F I K fl U S * 

20202 REM **************************************** 

20210 POKEV+17,27 :REM BVTE : 00011011 

20220 POKEV+24,21 :REM ?????????????? 

20230 RETURN 

20400 REM **************************************** 

20401 REM * P IJ N K T E S E T Z E N * 

20402 REM **************************************** 

20410 IF PKC0 GR PX>319 TUEN RETURN 

20420 IF PV<0 OR PV>199 TUEN RETURN 

20430 HX=8* I NT t F'K/8 > 

20440 HV=320* I NT < F'V/8 > + < PV RND 7> 

20460 I3K=2T < 7— C F'K RND 7>? 

20470 H1=8192+HX+HV 

20480 POKEH1 -PEEK'Hl> OR BK 

20490 RETURN 

20600 REM **************************************** 

20601 REM * L I N I E N ZIEHEN * 

20602 REM **************************************** 
20610 IF EX=RX OR EV=RV THEN H2=l:GOTÜ20640 

20620 IF RBS (. EV-RV > < RBS < EX—RX > THEH H2=l : GOTO 28640 
20630 H2=RBS < EK-RK >, 'RBS C EV-RV ■' 
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20640 

I FE X CFl X TUEN Fl 2 = H24- 

20658 

H3-: 1 

24660 

i . fev<:rvthchh3=- i 

20670 

IFEX=RXTHEN20740 

2063Ö 

F 0RLL = flXT0E XSTEPH2 

20600 

PX= I FIT < LI... -t . 5 > 

24 700 

PV= < < L L—r:k > * < ev-fiv 

20710 

GOSUE20400 

20720 

NEXT 

20730 

RETURN 

2Ü 74 8 

PXafiX 


2675© F0RF'V=HVTÜEVSTEPH3 
20760 G 0 S l. J8204 00 
2G770 HEXT 
20780 RETURN 

20880 REM 4444 4 44.+:444 4.4 44444444 4 4 4.4: 44 44 4.4 *4*44 4- 4 4 4 

20801 REN * R E f H T E L I 2 E I C H N E N 4 

20802 REM 4*4444444*44444444444444444 444444*4444*4 
20810 REN 4 OBERE LINIE 4 


2082U 

o: : ox 



28830 

HY--OV 



2:0840 

EX=UX 



20350 

EV=OV 



24360 

GOSUB20600 



20870 

REM * RECHTE SEITE 4 



2Ü880 

FIX--EX 



2083 4 

RV=.EV 



2Ü880 

FIX - l IX 



703 :l 0 

El V U V 



7 0820 

GOSUB20600 



2033O 

REN 4 UNTERE 1. .[NIE 4 



7m Q4m 

FIX “EX 



20358 

H'r'-EV 



20360 

EXkiDX 



20378 

EV .-•UV 



20388 

•IjOSUB’20600 



20390 

REN 4 LINKE SEITE 4 



2 1 800 

flX=EX 



21 0 1 0 

RV=::EV 

F r :x=n x 



21 030 

E V == 0 V 



1040 

GOSUB20600 



21 050 

RETURN 



21 200 

REM 44444444444444444444444 44 4444*1 

F4444 

444444 

21201 

REN 4 Q l.l fl 0 E R 2 E I Hl 

“ H l-i 

E N 4 

2 1 202 

R E M 44 444 4 4 4 44 4444 4 4 44 44 4 4 44 4 4 4 4 4 H 

:>y =i|» 1+ 

+ 4 + 44 + 

21 210 

REN 4 VORDERES RECHTECK 4 



.L .r_. .r_. U 

üV— v l 



2 1 240 

UX=X2 



2 1 250 

1 .IV -■ V 2 
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21260 G ü S I.J B 2 0 8 0 0 

21270 REM * HINTERES RECHTECK * 

21280 QX=X3 
21290 ÜY=V3 

21300 UX=X2-X 1+X3 
21310 UY=Y2—Y1+V3 
21320 GOSUB20800 

21330 REM * LINIE OBEN LINKS * 

21340 rx=xi 

21350 RV=Y1 

21360 EX=X3 

21370 EY=Y3 

21380 G O SIJ B20600 

21390 REM * LINIE OBEN RECHTS * 

21400 flX=X2 
21410 RV=V1 
21420 EX=X2—X1+X3 
21430 EV=V3 
21440 GOSUB20600 

21450 REM * LINIE UNTEN RECHTS * 

21460 RX=X2 
21470 RV=Y2 
21480 EX=X2—X1+X3 
21490 EY=V2—Y1+Y3 
21500 G O S IJ B20600 

21510 REM * LINIE UNTEN LINKS * 

21520 RX=X1 
21530 RV=V2 
21540 EX=X3 
21550 EV=Y2—V1+Y3 
21560 G 0 S IJ B2060@ 

21570 RETURN 

21600 REM **************************************** 

21601 REM * BL 0 C K Z E I C H N E N * 

21602 REM **************************************** 
21610 RX=OX 

21620 EX=UX 
21630 F0RBL=OVTOUY 
21640 RV=BL 
21650 EY=BL 
21660 G OS IJ B20600 
21670 NEXT 
21680 RETURN 

21800 REM **************************************** 

21301 REM * KREIS Z E I C H N E N * 

21802 REM **************************************** 
21810 IFRX>RY THEN H2=RX 

21320 IFRY=>RX THEN H2=RV 
£ 1830 FORLK=0TÜ2*itSTEP1 /H2 
21840 PX=INT < KX+RX*SINCLK > + .5> 

21850 FY=INT CKY+RY*COS<LK > + .5> 










Grafische Unterprogramme 


143 


21S 6 0 G 0 SIJ B20400 
21870 HEXT 
21880 RETURN 

22200 REM **************************************** 

22201 REM * S E G M ENTE Z E I C H N E N * 

22202 REM **************************************** 
22220 F0RLS=flWT0EWSTEPSM 

22230 H 2=L S * 2 * rr,3 6 0 
22240 H3= < LS+SW > *2*ir/360 
22250 RX=INT <KN+RN*SIH <H2 > +.5 > 

22260 RV=INT <KV+RV*COS<H2 > +.5> 

22270 EX=INT CKN+RH*SIN <H3 > +.5 > 

22280 E't'= I NT >■. KV+RV*COS C H3 > +.. 5 > 

22290 G 0 S U Ei20600 
22300 HEXT 
22310 RETURN 

22400 REM **************************************** 

22401 REM * Q IJ R D E R R U S F IJ E L L E N * 

22402 REM **************************************** 

22410 RX=X1 
22420 EX=X2 
22430 FORBL=V1T0V2 
22440 RV=BL 
22450 EV=BL 
22460 G 0 S IJ ES20600 
22470 HEXT 
22480 RV=V1 
22430 E V ~ V 3 
22500 FQRBL=X1T0X2 
22510 RX=BL 
22520 EX=BL+X3—X1 
22530 G O S U B20600 
22540 HEXT 
22550 RX--X2 
22560 EX=X2+X3-X1 
22570 FORBL=V1T0V2 
22580 RV=BL 
22590 EV=BL—VI+V3 
22600 G 0 3 IJ B20610 0 
22610 HEXT 
22620 RETURN 

22800 REM **************************************** 

22801 REM * R fl D I IJ S Z E I C H N E N * 

22802 REM **************************************** 

22810 RX=KX 

22820 RV=KV 

22830 H 2=R W * 2 * rr X 3 6 0 

22840 EX=INT <KX+RX*SIN<H2> +.5> 

22850 E't'= I NT <K V+RY*COS C H2) + . 5> 

22860 G O S IJ B20600 
22870 RETURN 
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GRAF 1000 - 22070 


Variablen: 


INIaino 

i ryp 

! Bereich 

! Bedeutung 

A$ 

! H 

! 1 

Ze ichen 

! für Warteschleife 

AX 

! E/P 
| 

! 0. 

! 

. .319 

! Anfang X-Koordinate 
! bei Linie 

AY 

! E/P 

j 

! 0. 
i 

. . 199 

! Anfang Y-Koordinate 
! bei Linie 

AlV 

! E/P 

i 

! 0. 

! 

. . 360 

! Anfangswinkel bei 
! Segmenten 

BL 

! H 
! 

! 

! OY 

I 

j 

. . .UY 

! Laufvariable bei 
! Blocks und ausgefül- 
! lten Quadern 

BX 

! H 

j 

! 

! 0. 

j 

j 

. .255 

! Hilfsvariable zur 
! Berechnung der Bit- 
! position im Byte 

EX 

! E/P 
! 

! 0. 

! 

. .319 

! Ende X-Koordinate bei 
! Linie 

EY 

! E/P 
j 

! 0. 
j 

. . 199 

! Ende Y-Koordinate bei 
! Linie 

ElV 

! E/P 
! 

! 0. 

! 

. . 360 

! Endwinkel bei Segmen- 
! ten 

HF 

! G 

! 0. 

. . 15 

! Hintergrundfarbe 

Hl 

! H 
! 

1 

! 8192...16383 

j 

! 

! Hilfsvariable für Byte 
! im RAM beim Punkt-set- 
! zen 

H2 

! H 

I 

! Dezimalzahl 

j 

! Hilfsvariable für 
! Schrittweite b. Linien 

H3 

! H 
j 

! Dezimalzahl 
! 

! Hilfsvariable für 
! Schrittweite b. Linien 

HX 

! H 

i 

j 

! 0. 
j 
! 

. . 319 

! Hilfsvariable zur 
! Berechnung der X-Posi- 
! tion ( Byte / Zeile ) 

HY 

! H 

1 

| 

! 0. 

! 

i 

..12800 

! Hilfsvariable zur 
! Berechnung der Y-Posi- 
! tion ( Byte in Zeile ) 

KX 

! E/P 

j 

j 

! 

! 0. 
j 
j 
j 

. . 319 

! Kreismittelpunkt 
! X-Koordinate bei Kreis 
! Ellipse, Segment und 
! Radius 

KY 

! E/P 

! 0. 

. .319 

! Kreismittelpunkt 


j 

! 


! Y-Koordinate bei Kreis 
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LK 

! 

! 

! H 

! 

! 

! 0. . 

.2 * PI 

! Ellipse, Segment und 
! Radius 

! Laufvariable bei 

LL 

j 

! H 

1 

! AX. 

. . EX 

! Kreis und Ellipse 
! Laufvariable bei 

LS 

! 

! H 

j 

! AW. 

. . EW 

! Linien 

! Laufvariable bei 

OX 

j 

! E/P 

i 

! 0. . 

.319 

! Segmenten 
! Obere X-Koordinate 

OY 

! 

! 

! E/P 

! 

1 

! 0. . 

. 199 

! bei Rechteck (links) 

! und Block 
! Obere Y-Koordinate 

PX 

J 

J 

! E/P 

j 

i 

! 0. . 

.319 

! bei Rechteck (links) 

! und Block 
! Punkt X-Koordinate 

PY 

! E/P 

! 0. . 

. 199 

! Punkt Y-Koordinate 

RW 

! E/P 

! 0. . 

. 360 

! Radiuswinkel bei 

RX 

! 

! E/P 

j 

! -159. ..159 

! Radius 

! Radius in X-Richtung 

RY 

i 

j 

! E/P 

| 

! 

! -99 

. . .99 

! bei Kreis, Eil ipse, 

! Segment und Radius 
! Radius in Y-Richtung 

SW 

j 

! 

! E/P 

j 

i 

! 0. . 

. 360 

! bei Kreis, Eliipse, 

! Segment und Radius 
! Schrittwinkel bei 

UX 

j 

! E/P 

j 

! 0. . 

. 319 

! Segmenten 
! Untere X-Koordinate 

UY 

! 

1 

! E/P 

i 

1 

! 0. . 

. 199 

! bei Rechteck (rechts) 

! und Block 
! Untere Y-Koordinate 

V 

! 

| 

! G 

! ! bei Rechteck (rechts) 

! ! und Block 

! konstant 53248 ! Adresse VIC 

XI 

! E/P 

! 0. . 

.319 

! 1. X-Koordinate bei 

X2 

j 

! E/P 

i 

! 0 . . 

. 319 

! Quader (oben Links) 

! 2. X-Koordinate bei 

X3 

! 

! E/P 

! 

! 0. . 

. 319 

! Quader (unten rechts) 

! 3. X-Koordinate bei 

Y1 

j 

I 

! E/P 

1 

i 

! 0. . 

. 199 

! Quader (oben 1 i nks 
! hinten) 

! 1. Y-Koordinate bei 

Y2 

i 

! E/P 

j 

i 0 . . 

. 199 

! Quader (oben links) 

! 2. Y-Koordinate bei 

Y3 

j 

! E/P 

i 

i 0. . 

. 199 

! Quader (unten rechts) 

! 3. Y-Koordinate bei 

ZF 

j 

j 

! G 

J 

j 

! 0. . 

. 15 

! Quader (oben links 
! hinten) 

! Zeichenfarbe (Punkte) 
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Kapitel 4.2 


Felder (Arrays): 


! Name ! Dirnen. ! Typ ! Bereich ! Bedeutung 


! ! ! ! 


Unterprogrammaufrufe : 


i n 

1 

nach 

! 

Zweck 



1030 

! 

20010 

i 

Hochauflösende Grafik einschalten 

1110 

j 

20400 

i 

Punkt 

ausgeben 


1120 

| 

20400 

! 

Punkt 

ausgebe n 


1130 

i 

20400 

! 

Punkt 

ausgeben 


1140 

! 

20400 

! 

Punkt 

ausgebe n 


1150 

! 

20400 

! 

Punkt 

ausgeben 


1160 

j 

2 0400 

| 

Punkt 

ausgebe n 


1170 

j 

20400 

i 

Punkt 

ausgeben 


1180 

1 

20400 

| 

Punkt 

ausgeben 


1190 

! 

20400 

i 

Punkt 

ausgeben 


1210 

! 

20600 

1 

Linie 

ziehen (für 

Quader) 

121 1 

! 

20600 

! 

Linie 

ziehen (für 

Quader) 

1212 

! 

20600 

; 

Linie 

ziehen (für 

Quader) 

12 20 

j 

20600 

! 

Linie 

zie h e n (für 

Quader) 

1221 

! 

2 0600 

! 

Linie 

ziehen (für 

Quader) 

1222 

j 

20600 

j 

Linie 

zieben (für 

Quader) 

1230 

i 

20600 

j 

Linie 

ziehen (für 

Quader) 

123 1 

j 

20600 

i 

Linie 

ziehen (für 

Quader) 

1232 

! 

2 0600 

j 

Linie 

ziehen (für 

Quader) 

1240 

! 

20600 

i 

Linie 

ziehen (für 

Quader) 

1241 

! 

20600 

1 

Linie 

ziehen (für 

Quader) 

1242 

j 

20600 

! 

Linie 

ziehen (für 

Quader) 

1310 

j 

20800 

j 

Rechteck zeichnen 


144 0 

! 

21200 

| 

Quader 

zeichnen (Rahmen) 

1530 

i 

21600 

! 

Block 

zeichnen 


1630 

i 

21800 

j 

Kreis 

ze ichnen 


1750 

j 

2 2200 

! 

Segmente zeichnen 


1840 

! 

22400 

i 

Quader 

zeichnen (ganz) 

1931 

j 

2 2800 

j 

Radius 

ze ichnen 


194 1 

! 

2 2800 

j 

Radius 

ze ichnen 


1951 

j 

2 2800 

| 

Radius 

ze ichnen 


196 1 

j 

2 2800 

! 

Radius 

ze ichnen 


1971 

! 

22800 

j 

Rad ius 

ze ichnen 


9990 

! 

20200 

j 

Graf ik 

ausscha lten 
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20710 

! 

20400 

! 

Punkt 

ze iebnen 


_ - — . 


20760 

! 

20400 

! 

Punkt 

ze ichnen 




20860 

! 

20600 

! 

1 i n i e 

zieben 




20920 

j 

20600 

! 

Linie 

z i ehe n 




20980 

i 

20600 

! 

Lin i e 

zieben 




21040 

! 

20600 

! 

Linie 

ziehen 




21260 

! 

20800 

! 

Rechteck zeichnen 




21320 

j 

2 0800 

j 

Rechteck zeichnen 




21380 

i 

20600 

j 

Linie 

zieben 




21440 

! 

20600 

| 

Linie 

ziehen 




21500 

! 

20600 

! 

Linie 

z i elien 




21560 

! 

20600 

! 

Linie 

ziehe n 




21660 

j 

20600 

i 

Linie 

zieben 




21860 

! 

2 0400 

j 

Punk t 

setze n 




22290 

j 

20600 

j 

Linie 

7. i eben 




2 2460 

! 

20600 

! 

Linie 

ziehen 




22530 

! 

20600 

! 

Linie 

z i eben 




22600 

| 

20600 

j 

Linie 

zi ehe n 




22860 

1 

20600 

j 

Linie 

ziehen 




Verzweigungen 

nach außen : 




i n Ze 

! 

nach 

! 

Bedingung 

Bemerkung 



ke i ne 

! 


! 






4.3 Tortengrafik 


Übungsziel: 

- Verwendung der in Kapitel 4.2 beschriebenen Unter¬ 
programme 

- Normierung von Eingabewerten 

- Grafische Gestaltung 


.1. 0 1 

0 

ZF = 7 



1. 02 

0 

HF -6 




M 

INF'UT 

rij^ii' izhhl 

DER FELDFF 

20 :l 

0 

DI LII4F 

: hf :> 


_• ;ü;;: 

0 

DINGR 

: fif > 



M 

FÜR I = 

L 1 URL- 


■ a.m 

0 

FR IN T 

' HF R1 FF 

L D " ; J. . 
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Kapit e 1 4.3 


2050 INF'UTHF CI> 
2060 SU=SU+WF<I > 
2070 HEXT 
2080 PRI NTSU 
2@S'0 FÜR I = 1TOFlF 


2100 

GRCI>=INT<UF 

I ::ol 

(3607 

3U+5 

y 


2110 

NEXT 






2120 

G 0 S U B20 00@ 






2130 

KN=200 : 

REM 

EVTL 

MIT 

I NF'IJT 

EINLESEN 

2140 

KV=100 : 

REM 

EVTL 

MIT 

I NF'IJT 

EINLESEN 

2150 

RN=45 ; 

REM 

EVTL 

MIT 

I NF'IJT 

EINLESEN 

2160 

RV=20 : 

REM 

EVTL. 

MIT 

I NF'IJT 

EINLESEN 


2170 : REM EVTL ELLIPSE FIJER ANDERE DARSTELLUNG 

2:18 0 G 0 S U E: 218 0 0 

2190 FW--0 

2200 SU=0 

2 210 G O S LJ B22800 

2220 SI4=1 

2230 FÜRI = 1 TORF-1 

2240 SU=SU+GR<I> 

2250 RH=S'U 
2260 G0SUB12200 
2270 NEXT 

2280 GETAT:IFAT=""THEN2280 
2290 G 0 S U B20200 ; S T 0 P 
9990 G 0 S U E!2020G 
9999 END 


Um eventuellen Fehlern g1eich vorzubeugen: Die Unterpro¬ 
gramme ab Zeile 20000 der Kapitel 4.2 sind Bestandteil 
dieses Programms, auch wenn sie nicht extra wieder mit 
ausgedruekt werden (aus p1aLzgründen). 

Mit diesem Programm werden beliebig hohe Eingabewerte nor¬ 
miert und als Tortengraf ik dargestellt. Zunächst wird die 
Anzahl der Felder in die Variable AF eingelesen, womit 
gleichzeitig aucli die Anzahl der einzugebenden Werte fest¬ 
liegt. Dann werden zwei Felder dimensioniert: WF() für die 
Eingabewerte der Felder selbst und GR( ) für die normierten 
Werte. Im folgenden werden die Daten eingelesen und in der 
Variablen SU aufsummiert. Die Normierung geschieht mit dem 
üblichen Dreisatz, indem für die Summe aller eingegebenen 
Werte ein Vollkreis von 360 Grad angesetzt wird. 

Dann wird in Zeile 2120 die Grafik eingeschaltet und die 
Werte für den Kreis/die Ellipse werden vorbesetzt. Bei den 
angegebenen Daten handelt es sich um eine Ellipse in der 
rechten Bildschirmhälfte. Soll die Tortengrafik mittels 
eines Kreises dargestellt werden, so sind RX und RY mit 
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gleicher Höhe zu wählen. Daraufhin wird ein Vollkreis am 
Bildschirm ausgegeben, mittels des Unterprogramms ab Zeile 
11400. Im folgenden dient die Variable SU zum aufsummieren 
der bereits von der Tortengrafik belegten Gradzahl am 
Kreis. Zu bemerken sei hier noch, daß 0 Grad bei dem Com- 
inodore 64 unten am Kreis sind. In den Zeilen 2190 bis 2210 
wird der erste Radius für 0 Grad gedruckt. Zeile 2220 kann 
weggelassen werden, sie dient nur zum Besetzen der 
Schrittweite, falls die Tortengrafik segmentweise gezeich¬ 
net werden soll. 

Anschließend wird für alle Eingabewerte bis auf den Letz¬ 
ten jeweils ein Radius entsprechend der normierten Grad¬ 
zahl gezogen. Die Größe des letzten Feldes ergibt sich 
automatisch aus der Differenz zwischen 0 Grad = 360 Grad 
und dem vorhergehenden Radius. Den Abschluß bildet in Zei¬ 
le 2280 noch eine Warteschleife bis eine Taste gedrückt 
wird, anschließend wird die Grafik wieder ausgeschaltet 
und das Programm angehalten. 


TORTENGRAFIK 


2000 - 2290 


Variablen: 


Name 

J 

Typ 

! B e r e i c h 

! Bedeutung 

A$ 

! 

H 

! L 

Ze ichen 

! WarLesch 1e i fe 

AF 

j 

G 

! Integer 

! Anzahl der Stücke 

I 

i 

H 

! 1. 

. . AF 

! Laufvai'ia 1)1 e 

KX 

j 

j 

P 

! 0. 
j 

. .319 

! X-Koordinate Kreis- 
! mittelpunkt (Ellipse) 

KY 

! 

i 

P 

! 0. 

! 

. . 199 

! Y-Koordinate Kreis- 
! mittelpunkt (Ellipse) 

RX 

! 

P 

! 0. 

. . 319 

! Radius in X-Richtung 

RY 

j 

P 

! 0. 

. . 199 

! Radius in Y-Richtung 

RW 

j 

P 

! 0. 

. .360 

! Rad i uswinke 1 

SU 

! 

! 

G 

! Dezimal zahl 

j 

! Summe der eingegebenen 
! Werte 

SW 

j 

! 

P 

! 0. 
j 

. . 360 

! Schrittweite bei 
! Segmenten 
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Kapitel 4.4 


! Felder (Arrays): 

! Name 

i 

Dirnen. ! Typ ! 

Bereich 

! Bedeutung 

■IM 


Dezimalzahlen 

! normierter 

mm 



! Betrag in Grad 

■ 


Dezimalzahlen 

! Eingabewerte 

! Unterprogrammaufrufe 

: 


! i n 

i - 

nach ! Zweck 




2120 ! 20010 ! Grafikteil - Grafik einschalten 

2180 ! 21800 ! Grafikteil - Kreis ausgeben 

2210 ! 22800 ! Grafikteil - Radius ausgeben (0 Grad) 

2260 ! 22800 ! Grafikteil - Radius ausgeben (Felder) 

2290 ! 20200 ! Grafikteil - Grafik ausschalten 


1 

! Verzweigungen 

nach außen : 


! in Ze 

nach 

! Bedingung 

! Bemerkung 

! 2290 

STOP 

! Normales Ende 

! (wegen 3000-Balk.) 


4.4 Balkendiagramme 


Obungszie1: 

- Darstellung von Balken mittels Block, Rechteck, 
Quader und ausgefüllten Quadern 

- Verwendung der in Kapitel 4.2 vorgestellten Unter¬ 
programme 

- Normierung von Eingabewerten 


Unter Verzicht auf den Multi-Color-Modus können in dem 
Programm Balkengrafiken nur einfarbig dargestellt werden - 
im Gegensatz zu den in Kapitel 2.3 beschriebenen Balken¬ 
diagrammen. Jedoch können mit diesem Programm nicht nur 
Balken, sondern auch Rechtecke, Quader oder ausgefüllte 
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1000 REM *** GRAFIK EIN *** 

1010 2F=7 
1020 HF=6 

3000 INF'UT"I3THZAHL DER BALKEN".?AB 
3010 DIMMB C AB > 

3020 DIMHO'::AE:> 

3030 F O RI = 1T O A E: 

3040 PR INT" WERT BALKEN " ; I .. 

3050 I NF'UTWB I > 

3060 SIJ=SIJ+M B < I > 

3O70 IFKIB < I > >HATHENMA=NB < I > 

3080 HEXT 


3090 PR I NT " SUMME " SU 

3100 INF'UT "ABSTAND ";A 

31.10 INPUT "BREITE ";BR 

3120 I NF'IJT " GRIJNDZEI LE " ,rGZ 

3130 IHPIJT" MAXI MALE HOEHE < ZEILE!' ",?MH 
3140 I HF'UT " ERHOEHUNG " ; EH 

3150 INPUT "BEGINN IN SPALTE ",;E:S 

3160 PRINT" 1 - BLOCK 

3170 PRINT" 2 - RECHTECK 

3180 PRINT" 3 - QUADER 

3190 PRINT" 4 - QUADER VOLL. 

3200 INPUT" 1 X 2 X 3 X 4 ";AR 

3210 I PARC 1ORARX4THEN3200 

3220 IFAR>2THEM INF'UT "TIEFE ".sTF 

3230 F O RI = 1 TU IT B 

3240 P R L I > = IN T C N B < I !:■ * 10 0 X S U +. 5 > 


3250 HO C I > = INT < NB < I > * < GZ—MH-TF—EH* < AB-1 >XMA+.. 5 > 

3260 NEXT 

3270 GOSUB20000 

3280 UX=BS—A 

3290 FORI=1TOAB 

3300 OX=UX+A 

3310 IJ X=0 X+B R 

332O O V=G Z—H O >:; I } 

3330 IJV=GZ—EH* C I -1 
3340 G OSIJ B3700 
3350 NEXT 
3360 GOTO 9990 

3700 IFAR=1THENG0SUB21600sRETURN 

3710 IFRR=2THENGOSUB20S00 : RETURN 

3720 IFAR=3THENGOSIJB3740 : G0SUB21200 : RETURN 

3730 IFAR=4THENGÜSUB3740 : GQSUB22400:RETURN 

3740 X1=0X 

3750 V1=0V 

3760 X2=IJX 

3770 V2=UV 

3 r 8 0 . : ' : i -3 = IJ+ T F 

3790 V3--0V-TF 

3800 RETURN 
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Kapitel 4.4 


Quader dnrgestellt werden. 

Zunächst wird die Anzahl der Balken erfragt, und darauf 
werden zwei Felder - zur Speicherung der Eingabewerte und 
der auf die maximale Höhe normierten Werte - dimensio¬ 
niert. Dann werden die Werte eingelesen und wie in Kapitel 
4.3 auch eine Summe gebildet. Gleichzeitig wird auch noch 
das maximale Element der Eingabewerte in Zeile 3070 her- 
ausgefunden. 

In den Zeilen 3090 bis 3220 erfolgt die Erfassung der für 
die Oiagramme benötigten Werte. Dies sind offensichtlich 
einige mehr als in Kapitel 4.3, jedoch werden auch hier 
mehr Möglichkeiten zugelassen. Die zu berücksichtigenden 
Werte sind: 

A - Abstand der Balken voneinander; der Abstand der 
Balken untereinander kann auch negativ sein, so 
daß sich eine geschachtelte Abbildung ergibt 
B - Breite der Balken in Bildschirmpunkten 
GZ - Grundzeile; die Grundzeile ist die unterste 

Punktreihe des ersten Balkens bzw. aller Bal¬ 
ken, wenn die Erhöhung 0 ist 
MH - maximale Höhe; die maximale Höhe gibt die oberste 
beschreibbare Zeile (Zeile hier im Sinne von 
Punktzeile) im Gegensatz zu der Grundzeile an. 

Die Grafik erscheint also maximal zwischen 
Grundzeile und maximaler Höhe. 

EH - Erhöhung, die Erhöhung gibt an, um wieviele 

Punkte jeder weitere Balken sich von der Grund¬ 
zeile mehr entfernen soll, als der vorhergehende 
Punkt. Im Zusammenhang mit der Variablen A (Ab¬ 
stand) läßt sich so eine 'Fluchtlinie' erzeugen. 
BS - Beginn Spalte, um Grafiken nicht immer am linken 
Bildschirmrand beginnen zu lassen, sondern damit 
auch mehrere Grafiken auf dem Bildschirm nach¬ 
einander erzeugt werden können, kann man noch 
die äußerst linke Punktzeile der Grafik in Vari¬ 
ablen BS angeben. 

AR - Art der Darstellung, in dieser Variablen wird 

Ziffernmäßig die Art der Darstellung verschlüs¬ 
selt dargestellt (siehe Listing). 

TF - Tiefe, die Variable TF wird nur besetzt, wenn 

ein Quader bzw. gefüllter Quader gezeichnet wer¬ 
den soll. TF gibt dann an, um wieviele Punkte 
jeweils in X und Y Richtung der Quader nach hin¬ 
ten gezeichnet werden soll (optisch hinten ist 
am Bildschirm oben). 
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In Zeile 3210 befindet sich noch eine Plausibilitätsprü¬ 
fung für die Art der Darstellung. Ab Zeile 3230 befindet 
sich die Normierung der Zahlen, wobei wie folgt vorgegan¬ 
gen wird: Der größte Eingabewert erhält (im Gegensatz zu 
der Berechnung bei der Tortengrafik) die maximale Höhe zu¬ 
gewiesen. Alle anderen werden zu diesem Balken relativ 
dargestellt. Die Berechnung der maximalen Höhe eines Bal¬ 
kens sieht zwar etwas kompliziert aus, ist im Prinzip aber 
ganz einfach. Zunächst kann der Balken die maximale Höhe 
GZ-MH haben. Von dieser Höhe muß noch die eventuelle Tiefe 
abgezogen werden, damit bei Quadern nicht über den vorge¬ 
gebenen Rahmen hinaus gezeichnet wird. Da der größte Bal¬ 
ken auch der letzte sein kann, muß - falls eine Erhöhung 
vorliegt - diese so oft, wie sie gebraucht wird, auch noch 
von der maximalen Balkenhöhe abgezogen werden. 

In Zeile 3260 wird die Grafik eingeschaltet und in Zeile 
3280 bis 3340 eine Schleife zum Errechnen der jeweiligen 
Eckpunkte der Balken und deren Ausgabe durchlaufen. Da der 
obere Eckpunkt eines Balkens aufgrund des Abstandes und 
des vorgehenden unteren Eckpunktes berechnet wird, muß 
noch vorher (in Zeile 3270) der imaginäre untere Eckpunkt 
vor dem ersten Balken festgelegt werden. Weil der Abstand 
von der Beginnspalte nicht eingehalten werden soll, ist er 
zunächst abzuziehen, da er in Zeile 3290 wieder' aufaddiert 
wird. 

Wie schon erwähnt, wird die obere (linke) X-Koordinate aus 
der unteren (rechte) X-Koordinate des letzten Balkens, 
vermehrt um den Abstand, bestimmt. Die untere X-Koordinate 
ergibt sich dann aus der oberen X-Koordinate, vermehrt um 
die gewünschte Breite des Balkens. Die obere Y-Koordinate 
ist die Grundzeile abzüglich der Höhe des Balkens und 
einer eventuell vorliegenden Erhöhung. Die untere Y-Koor- 
dinate ist der gleiche Ausdruck ohne die Höhe des Balkens. 

Im Unterprogramm ab Zeile 3700 wird noch überprüft, welche 
Darstellungsart gewünscht wird und entsprechend verzweigt, 
wobei für die Darstellungsarten '3' und ’4' jeweils noch 
die entsprechenden Aufrufparameter XI, X2, X3, Yl, Y2 und 
Y3 entsprechend besetzt werden. 
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Kapitel 4.4 


BALKEN HIRES 


3000 - 3800 


Variablen: 


Name 

! Typ 

! Bereich 

! Bedeutung 

A 

! G 

! 00...319 
! 

! Horizontaler Abstand 
! zwischen den Balken 

A$ 

! H 

! 1 Zeichen 

! Warteschleife 

AB 

! G 

! Ganzzahlig 

! Anzahl der Balken 

AR 

! G 

! 1. . .4 

j 

! 

j 

| 

! Art der Darstellung: 

! 1 - Block 

! 2 - Rechteck 

! 3 - Quader 

! 4 - Quader voll 

BR 

! G 

! 0...319 

! Breite der Balken 

BS 

! G 

! 0 ... 318 

j 

! 

! Beginn in Spalte 
! (Linke Seite des er- 
! sten Balkens) 

EH 

! G 

! 0...199 
! 

! 

! Vertikaler Abstand der 
! Balken zwischen den 
! Grundseiten 

GZ 

! G 

! 0...199 

1 

! Grundzeile des ersten 
! Balkens (Unterste Z.) 

I 

! H 

! 1 . . .AB 

! Laufvariable 

MA 

! G 

! Dezimalzahl 

1 

! Maximum der eingegebe- 
! nen Werte 

MH 

! G 

! 0...199 

! Oberste Zeile 

SU 

! G 

! Dezi mal zahl 

i 

! Summe der eingegebenen 
! Werte 

TF 

! G 

! 0 . ..198 
! 

! 

! Tiefe bei Quadern 
! nach oben und rechts 
! in gleicher Punktzahl 

OX 

! P 

! 0...319 
! 

! X-Koordinate oben 
! links 

OY 

! P 

! 0...199 

j 

! Y-Koordinate oben 
! links 

IJX 

! P 

! 0...319 

j 

! X-Koordinate unten 
! rechts 

UY 

! P 

! 0...199 

i 

! Y-Koordinate unten 
! rechts 

XI 

! P 

! 0...319 

! X-Koord. oben links 

X2 

! P 

! 0. ..319 

! X-Koord. unten rechts 

X3 

! P 

! 0...319 

! X-Koord. hinten 

Y1 

! P 

! 0 . . . 199 

! Y-Koord. oben links 
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! Y2 ! 

! Y3 ! 

P ! 0...199 
P ! 0. . .199 

! Y-Koord. unten rechts 
! Y-Koord. hinten 

! Felder 

(Arrays): 


! Name ! 

Dirnen. ! Typ ! 

Bereich ! Bedeutung 

! H0( ) ! 

! WB ( ) ! 

1 

1 ... AB ! G ! 
1...AB ! G ! 

Dezimalzahlen ! normierte Höhe 
(Dezimal zahlen ! Eingabewerte 

- i 

! Unterprogrammaufrufe : 

! i n ! 

nach ! Zweck 



3270 ! 20010 ! Grafikteil - Grafik einschalten 
3340 ! 3700 ! intern - Darstellungsart feststellen 

3700 ! 21600 ! Grafikteil - Block ausgeben 

3710 ! 20800 ! Grafikteil - Rechteck ausgeben 

3720 ! 3740 ! intern - Parameter Quader besetzen 

3720 ! 21200 ! Grafikteil - Quader (Linien) ausgeben 
3730 ! 3740 ! intern - Parameter Quader besetzen 

3730 ! 22400 ! Grafikteil - Quader (voll) ausgeben 

9995 ! 20200 ! Grafikteil - Grafik ausschalten 


! Verzweigungen 

i 

nach außen : 



! in Ze 

nach 

! Bedingung 

! Bemerkung 


! 9999 

END 

! Normales Ende 

j 
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5. Assembler 


Wie wir in Kapitel 4 gesehen haben, kann Basic sehr lang¬ 
sam sein. Sicher haben Sie schon Programme gesehen, die 
komplexe Bildschirmausgaben in Blitzesschnelle bewältigen. 
Dazu ist jedoch eine Programmieruny auf Maschinenebene 
erforderlich, im Prinzip eine Bit-Fummelei mit lauter '0‘ 
und '1 *. Über Assembler alleine kann man schon Bücher 
schreiben, weil das Gebiet so komplex ist. Dies haben wir 
auch mit dem Band 4 dieser Buchreihe getan. An dieser 
Stelle sei deshalb nur eine 'abgemagerte 1 Version be¬ 
schrieben, und das Programm wird nicht bis ins Kleinste 
erläutert. Ein Assembler ist jedoch unabdingbare Voraus¬ 
setzung für die optimale Nutzung aller Möglichkeiten des 
Commodore 64. 

Ein Assembler ist im Prinzip ein Mittelding zwischen Ma¬ 
schinencode und Basic. Wie Interessierte vielleicht schon 
wissen, werden von einem Byte aus acht Bits jeweils vier 
Bit zu einer sogenannten Hexadezimalzahl (Basis 16) zusam¬ 
mengefaßt, die dann eine Bezeichnung entsprechend von 0 
bis F erhalten. Dies ist der erste Schritt zur Vereinfach¬ 
ung, da statt vier Bit immer nur noch eine hexadezimale 
Ziffer geschrieben werden muß. Der nächste Schritt ist 
eine mnemotechnische Bezeichnung für die zu setzenden Bits 
z.B. ' LDX 1 für ‘lade in X-Register' oder 1 STX' speichere 
(STORE) in X-Register. Genauso wie bei Basic gibt es auch 
zusammengesetzte Befehle, wo der Befehlsteil in unserem 
Beispiel 'LDX' mit diversen Parametern versehen sein kann. 
Dies sind in der Hauptsache verschiedene Adressierungsar¬ 
ten. Wie schon erwähnt sei hier auf ergänzende Literatur 
zum näheren Verständnis hingewiesen. 

Ziel dieses Buches ist es, lediglich einen Assembler vor¬ 
zustellen, dessen Veständnis im einzelnen nicht erforder¬ 
lich ist, lediglich seine Handhabung, um z.B. die in Kapi¬ 
tel 4.2 vorgestellten Unterprogramme schneller zu machen. 

Der hier vorgestellte Assembler macht nichts anderes, als 
diese mnemotechnischen Bezeichnungen (z.B. LDX) in ihren 
hexadezimalen Code umzuwandeln. Dies sieht am Anfang etwas 
einfacher aus als es ist, jedoch sind auch die verschiede¬ 
nen Möglichkeiten der Parameter für die einzelnen Befehle 
zu beachten. Ein weiterer Schritt zur leichteren Handha¬ 
bung von Maschinenprogrammen, ist die Möglichkeit der Ver¬ 
wendung von Symbolen, so daß Sie nicht immer die abso- 
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Speicheradressen angeben müssen, sondern - wie in höheren 
Programmiersprachen auch - sich ein Symbol für eine Spei¬ 
cherstelle definieren. 

Sicher wundert es Sie etwas, daß der Assembler in ein vom 
Computer sofort ausführbaren Maschinencode in Basic ge¬ 
schrieben ist, aber wie schon gesagt ist es ein Umsetz¬ 
ungsprogramm, und die hierfür einfachste Sprache ist wohl 
Basic. Eine lohnende Sache wäre es sicherlich, das im Fol¬ 
genden aufgezeigte Basic-Programm in Assembler zu schrei¬ 
ben, um auch dem - recht langsamen - Assembler auf die 
Sprünge zu helfen. Fertige Teilprogramme könnten dann bei 
der Erstellung des Assemblers schon das Assemblieren un¬ 
terstützen. Das wäre dann so, als wenn Sie mit einem halb- 
fertigen Auto die restlichen Teile einkaufen fahren, gellt 
aber entschieden besser. 

Das Kapitel über den Assembler haben wir in vier Bereiche 
untergliedert. Zunächst gehen wir auf die DATA-Statements 
ein, die die verschiedenen mnemotechnischen Bezeichnungen 
wie Sie bei dem 6510/6502 üblich sind inklusive ihrer Pa¬ 
rameter angeben. 

Als nächstes wird auf häufig verwendete Unterprogramme 
eingegangen, die aus Rechenzeitgründen am Anfang des Pro¬ 
gramms stehen. 

Hier noch einiges zur näheren Erklärung: Bei einem G0SUB- 
Befehl sucht der Computer bei einer höheren Zeilennummer 
als die Aufrufzeile hat, ab der Aufrufzeile und bei einer 
kleineren Zeilennummer vom Programmanfang. Häufig verwen¬ 
dete Unterprogramme sollten deshalb am Programmanfang ste¬ 
hen, um dem Computer lange Suchzeiten zu ersparen. Dies 
sind im einzelnen Millisekunden; bei einer entsprechenden 
Häufigkeit von Aufrufen summiert sich das jedoch schon zu 
Sekunden, wenn nicht sogar Minuten. Im dritten Teil wird 
auf die anderen Unterprogramme eingegangen und im vierten 
Unterkapitel wird letztendlich das Hauptprogramm beschrie¬ 
ben. 


5.1 DATA-Statements 


Die DATA-Statements liegen im Basic-Programm ab Zeile 
54000 bis hin zu Zeile 59200. Die DATA-Statements selbst 
sind wieder wie folgt untergliedert: 

54000 Anzahl der Adressenmodes je Befehls typ 
55000 Angabe der mnemotechnisehen Befehle mit ihrem 
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dreibuchstabigen Code sowie die Nummer des Typs 
und alle aufgrund des Typs möglichen späteren 
Maschinencodes 

56000 Direktiven; Anweisungen im Assemblerprogramm, 
die keinen Maschinencode erzeugen 
57000 Basic-Schlüsselwörter 
58000 Fehlermeldungen 


An dieser Stelle seien noch zwei Begriffe erläutert: Sour- 
ce-Code / Quellprogramm ist die Bezeichnung für den im 
Assembler eingegebenen Text und Objekt-Code bzw. Objekt¬ 
programm ist das später fertige Maschinenprogramm was aus 
dem Source-Code resultiert. 


5.1.1 Adressenmodes 


54010 Ü ft T ft 1 : R E M TVP 0 IMPLIED 

54020 DATA2 :REN TYP 1 <.JUMPS> ABSOLUTE.. IHDIRECT 
540U0 DATA 10 : REM # . Z . ZX!.. ZV . A . AX . AV . I X . IVAC TVF' 
54040 DATA@:REM B V TE 
5 4 O 5 O D Fl T A 0 : R E M U 0 R D 

54060 DATA 1:REM TYP 5 RELATIVE BRAUCHES 


Die Adressenmodes werden später in dem Feld AC(0..5) ge¬ 
speichert. Folgende Anzahlen für Adressenmodes sind mög- 
1 ich: 

Typ 0-1, d.h. ein dreibuchstabiger Assembler¬ 
befehl des Typ 0, kann nur in einen einzigen 
Maschinenbefehl umgewandelt werden. 

Typ 1-2, hauptsächlich Dump-Befehle sind vom Typ 
1. Diese können absolut und indirekt ad¬ 
ressiert we r d e n 

Typ 2 - bis 10, in Typ 2 sind alle möglichen Opera¬ 
tionen zusammengefaßt, die in bis zu zehn 
verschiedene Maschinencodes umgewandelt wer¬ 
den können. 


Typ 3 - 0, erzeugt keinen Code, sondern ist eine 

Direktive zum Reservieren einer Konstanten 
von einem Byte 

Typ 4 - 0, erzeugt ebenfalls keinen Code, sondern 
dient zum Reservieren einer Konstanten von 
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zwe i Dyte ( = 1 Word) 

Typ 5-1, faßt alle Befehle für relative Sprüncje zu¬ 
sammen. 

5.1.2 Mnemotechnische Befehle 


55040 

55850 

55060 

55070 

55089 

55090 
55100 
55110 
55120 
55130 
55140 
55150 
55160 
55170 
55180 
55190 
55200 
55210 
55220 
55230 
55240 
55250 
55260 
552 70 
55280 
55290 
55300 
55310 
55320 
55330 
55340 
55350 
55360 
55370 
55380 
55330 
55400 
55410 
55420 
55430 
55440 


DflTfiRDC 

DR TR FIND 

DRTRRSL 

DRTRBCC 

DRTRBCS 

DRTRBEQ 

DRTRBIT 

DRl'RBM I 

DRTRBHE 

DRTRBF'L 

DRTRBRK 

DRTRBVC 

DRTRBVS 

DRTRBVT 

DRTRCLC. 

DRTRCLD 

DRTRCLI 

DRTRCLV 

DRTRCMF' 

DRTRCF'X 

DR I RCP't' 

DRTRDEC 

ÜRTRDEX 

DRTRDEV 

DRTREOR 

DRTR INC 

DRTRINX 

DRTR INV 

DRTR. INF' 

DFl f R J SF! 

DRTRLDR 

DRTRLDX 

DRTRLDV 

DFl TR LSF: 

DRTR HOF' 

DRTRORR 

DRTRF'HR 

DRTRF'HF' 

DRTRF'LR 

DRTRF'LF' 

DRTRROL 


6365,75, , 6D , 7D , 79,61 , 

29,25,35,,2D,3D,39,21, 

,06,16,,@E,1E, , , , 0R 

90 

B0 

F'0 

,24,,,2C,,,,. 

30 

D0 

10 

00 

50 

70 

18 

DB 

B8 

C9,C5,D5,,CD,DD,D9,C1 
E0 , E.4 , , , EC , , , , , 

C0,C4,,,CC,,,,, 

r ,C6 r D6,,CE, DE , , , , 

rCR 


71 . 
31 . 


Dl 


49,45,55 , , 4D , 5D53,41 . 
,E6,F6,,EE,FE, , , , 

ES 

CS 


51 , 


4C , 

Sc 






20 , 







R3 , 

Fl 5 , 

B5 , , 

RD, 

BD , 

B9 , R1 

.81, 

R2, 

R6 , 

, E'6, 

RE, 

Lü 

LÜ 



R0 , 

R4 , 

B4 , , 

RC , 

BC , 

, , , 


..46 

,56 

LU 

,5E 


,4R 


ER 







09, 

05 , 

15 , , 

00 , 

1D , 

19,01 

,11, 


48 

08 


2E,3E,,,,2R 
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55450 

DH! fl R U R r cL r r G t« 

r76 6 Er I 7 E ... r r r S H 

5546© 

DflTflRTI.0.40 


55470 

D fl T R R T S , 06 0 


55480 

DflTflSBC , 2, E9 

ES,F5,,ED,FD,F9,E1,F1, 

554y tl 

ORTflSEC038 


55500 

DflTflSED.. 0.. FS 


55510 

DRTRSEI ..0,78 


55520 

DAT flSTfl,2,,85 

, 85,,8D,9D,99,81,91, 

55580 

ORTRSTft r 2 r r 86 

. .96 .. 8E . . . . . 

55540 

DATfl8TV,2,,84 

,94, ,8C ..... 

55550 

D fl T fl T fl K , 0 , fl fl 


55560 

D fl T fl T fl V , 0 , fl 3 


55570 

DATflTVfl,0,98 


‘55580 

DAT AISK,0,Bfl 


Fi F. 5=190 

D fl T fl T K fl , 0,8 fl 


55600 

D fl T fl T K S , 0 , 9 fl 


55610 

D Fl 1 RNUR .r 4 



In diesen DATA-Statements sind alle mnemotechnischen Be¬ 
fehle des 6510/6502 zusammengefaßt. Jede DATA-Zeile be¬ 
steht ans dem dreibuchstabigen Befehl, dem Typ, wie er in 
Kapitel 5.1.1 beschrieben wurde, und den verschiedenen 
hexadezimalen Werten, die das Maschinenprogramm aufgrund 
des Codes und den verschiedenen Adressierungen annehmen 
kann. 

Folgende Befehle sind aufgeführt: 


ADC - ADdiere zum Akkumulator mit Carry-Flag 
AND - UND-Verknüpfung einer Speicherzelle mit dem 
Akkumulator 

ASL - Shift Left; alle Bits um eins nach links schie¬ 
ben, von rechts wird eine Null nachgezogen, und 
das äußerst linke Bit befindet sich anschlie¬ 
ßend im Carry-Flag 
BCC - Branch if Carry Clear 

BCS - Branch if Carry Set; verzweige, wenn das Carry- 
Flag gesetzt ist 

BEQ - Branch if EQual; verzweige, wenn Zero-Flag = 1 
BIT - Teste Speicherzelle mit Akkumulator 
BMI - Branch if Minus; verzweige, wenn Negativ-Flag = l 
BNE - Branch if Not Equal; verzweige, wenn Zero-Flag 
= 0 

BPL - Branch if PLus; verzweige, wenn Negativ-Flag =0 
BRK - BReaK; Abbruch (Software-Interrupt) 

BVC - Branch if OVerflow Clear; verzweige, wenn kein 
Überlauf vorhanden ist (Overflow-Flag = 0 ) 

BVS - Branch OVerflow Set; verzweige, wenn ein Über- 
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lauf vorhanden ist (Overflow-Flag = 1) 

BYT - Reservieren eines Bytes (kein Maschinenbefehl) 
CLC - CLear Carry; Carryflag löschen 

CLD - CLear Decimal Flag; Umschalten auf Binärarith¬ 
metik 

CI.I - CLear Interupt Flag; Interrupt-F 1 ag löschen 
(Interrupt ermöglichen) 

CLV - CLaer OVer f lowf lag ; (Jberlauf-Flag löschen 
CMP - CoMPare Accu ; vergleiche Akku mit Speicher 

CPX - ComPare X ; vergleiche X-Register mit Speicher 

CPY - ComPare Y ; vergleiche Y-Register mit Speicher 

DEC - DECrement Memory ; Spe icherinha 11 um eins er- 
niedr i gen 

DEX - DEcrement X ; X-Register um eins erniedrigen 
DEY - DEcrement Y ; Y-Register um eins erniedrigen 
EOR - Exklusiv-Oder-Verknüpfung Speicherzelle mit 
Akkumulator 

INC - INCrement Memory ; Speicherinhalt un eins er¬ 
höhen 

INX - INcrement X ; X-Register um eins erhöhen 
INY - INcrement Y ; Y-Register um eins erhöhen 
JMP - JuMP ; Unbedingter Sprung 
JSR - Jump Subroutine ; Unterprogramm-Auf ruf 
LDA - LoaD Accu ; Lade Akkumulator mit Speicher 
LDX - LoaD X ; Lade X-Register mit Speicher 
LDY - LoaD Y ; Lade Y-Register mit Speicher 
LSR - Shift Right;alle Bits um M’ nach rechts schie¬ 
ben, von links wird eine Null nachgezogen, und 
das äußerst rechte Bit befindet sich anschlie¬ 
ßend im Carry-Flag 
NOP - No Operation ; Leerbefehl 
ORA - Oder-Verknüpfung Speicherzelle mit 
Akkumulator 

PHA - Push Accu ; Akku in Kellerspeicher (Stack) 

PHP - Push Processorstatus ; Prozessor-Status-Regis- 
ter in Kellerspeicher' 

PLA - Pull Accu ; Akku aus Kellerspeicher' holen 
PLP - Pull Processorstatus ; Prozessor-Status-Regis- 
ter aus Kellerspeicher holen 
ROL - ROtate Left - Rotiere ein Bit linksherum (Akku 
oder Speicher); Bit 7 geht in das Carry-Flag, 
das alte Carry-Flag geht nach Bit 0 
ROR - ROtate Right - Rotiere ein Bit rechtsherum 

(Akku oder Speicher); Bit 0 geht in das Carry- 
Flag, das alte Carry-Flag geht nach Bit 7 
RTI - ReTurn from Interrupt - Rückkehr vorn Interrupt; 

restauriert Programmzähler und Prozessorstatus 
RTS - ReTurn from Subroutine - Rückkehr - vom Unterpro¬ 
gramm; restauriert nur Programm/ähler 
SBC - Subtrahiere vom Akkumulator mit Carry-Flag 
SEC - SEt Carry; Carryflag sel.zen 
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SED - SEt Decimal Flag; Umschalten auf Dezimalarith¬ 
metik 

SEI - SEt Interupt Flag; Interrupt-Flag setzen 
(Interrupt verhindern) 

STA - STore Accu; speichere Akkumulator 

STX - STore X; speichere X-Register 

STV - STore Y; speichere Y-Register 

TAX - Transfer Accu into X; Akkumulator in X-Register 
übertragen 

TAY - Transfer Accu into Y; Akkumulator in Y-Register 
übertragen 

TSX - Transfer Stack-Pointer into X; Stackpointer in 
X-Register übertragen 

TXA - Transfer X into Accu; Akkumulator in X-Register 
übertragen 

TXS - Transfer X into Stackpointer; X-Register in 
Stackpointer übertragen 

TYA - Transfer Y into Accu; Akkumulator in Y-Register 
übertragen 

WOR - Reservieren eines Word (Kein Maschinenbefehl) 


5.1.3 Direktiven 


56030 DRTRORG . END , IHO 


ln der vorliegenden Asseinbierversion sind nur drei Direk¬ 
tiven vorhanden, diese sind: 

%ORG - erstes absolutes Byte für das Assembler¬ 
programm festlegen 
%Ei\ID - Ende des Sources-Codes 

% I\0 - Startadresse für das Assembler-Programm 
am Bildschirm erfragen 

In den DATA-Stateinents werden die Direktiven ohne an¬ 

gegeben. 


5.1.4 Basic-Keywords 


57030 DRTREHD.. FÜR , HEXT , DR TR... I HF'UT#.. I NF'IJTDIM 
57040 DRTRRERD ,.LET , GOTO , RUHIF , RESTORE 
57050 DRTRGOSUE:, RETURN, REH.. STOP , OH , HR IT , LORD 
57060 DRTRSRVEVERIFV, DEF.. POLE , PR IHT# 

57070 DRTRF'R I NT ,COHT.. LI ST ,CL.R..CMD , SYS.. OPEN 
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' > 'i.16 : i i.i| l I M -I J !'■ I . i I . I! 1.1 INF;' , U i .. i I ! ,. .K ■ 

l'iji- 'O Ol: ! R fHEiT I ii ‘T . '■ I EF'. , . . f , . ' , I .mND. ' M? . 

Di UH Uri l : ; , SGI ! .. I !"i I . Eil:? ■■■• . I' .1-' . F IEF 1 F -i i' ' .Ri 

'5.11 o Di-i ! i ii-'i ID . L • io . f . ;i ; '. i; i.i- . • ■. 1 11 , irm 11111. i 11 F. 

I > * tu 1 TFiLETI • . T P 1 , Vl' ll. . r I::- 1 . ■ I II- : F .1 !:! ' I 

' ■Z i 3F;i DH I HP 1 GU I F . I DF . i .i • 


Wie interessierte Leser vielleicht schon wissen, werden 
die Basic-Keywords jeweils auch in einem Byte dargeste1lt, 
wie ein einzelnes Zeichen. Diese Codes liegen etwas ab¬ 
seits von den normalen Buchstaben im ASCII-Bere ich von 123 
bis 203. Deshalb wird auch in dem Feld BK$( ) dieser Be¬ 
reich mit den Basic-Keywords besetzt. Auf' die Möglichkei¬ 
ten der einzelnen Basic-Keywords wollen wir hier nicht 
näher eingehen. Notwendig ist die Verarbeitung der Basic- 
Keywords, da in den Assembler-Programmen eventuell Basic- 
Keywords Vorkommen können, die da nichts zu suchen haben. 
Würden Sie zum Beispiel eine Variable 'UNSINN' definieren, 
so würde diese Variable als ' UN'+ ' SIN( US) ' + ' !M ' gespeichert 
werden. Um diese Sachen zu korrigieren, müssen die Basic- 
Keywords später im Programm jeweils überprüft werden, so 
daß der Text eines Basic-Keywords in den Source-Code wie¬ 
der anhand dessen Verschlüsselung eingesetzt werden kann. 


5.1.5 Fehlermeldungen 


\y3ij 

DH 

r h ' 

S'r'N 

IHN : 

' l’IU V 

' HEC-. 

Hl FEI 

Hl 

I C" 

r . : ,: i4 L 'i 

DR 

FR ' 

3 VI1 

ERX : 

1 Hl. E 

CHE I 

1. F: 1 EI 1 

: r i 

VE ” 

c ; 8 0*50 

DR 

r r ■ 

S'?H 

i RN : 

f ll-'i- F 

HMD F 

FI Hl.' 

" 


. - M 1 1 

DU 

F R • 

3 VN 

1 R : ; 

FH. H HM ERN 

1 Hl 

•• 1 

OESE f Z r " 

."m 

DR 

r fi ■ 

3 V I ■■! 

T HX : 

MODE 

.ZE 11 i 

ICH 

111 

HT RN ERSTER STELLE" 

Ü58Ö89 

DR 

RI 

IT Df? 

ES 3 1. E 

l?l ü IR: 

;HR 1 1 

FIEP 

n :• 

( Hi' MDE Gl... I 'Fl" 

5Ö09O 

DR 

TR ' 

1 EI 

l-i DDE 

RH HD 

ERL HF 

:&T” 



Sc': 1 0*:*i 

!. iR 

I U ‘ 

01 I 

RH MD 

MUSS 

EI HE 

KON 

El RITTE SE IN" 

1 1 l;U 

IjR 

F H ’ 

Dl T. 

F 1II lü 

MUSS 

EI HE 

F'IFlR 

•■E. 

■: ERBEL.:' SEIN" 


DD DD: DH i'l : 'i"i.jl :, ERHHD Füll SCH 3i--F.:.Z I F IX! PF: 1 " 

ggi du i if:• > : i"!-mr -1 i. oder f uns rrum. su-fon def intert" 

SD | Hl f i(• : ' >1 i V I -,i I. il. F 3HPF HUF? 2 HF? GUMEN1 fc EN I HFU. 1 Elf 

5 s .1 '513 D H T R '' Ul i;: k r X U ' • R ' . 1 .; S 1 ' 

EH tGi'l Di l I 11"! : I iLSUI Ife EFlENGE. F- IMER HEX— DDEF: B1 NHL F? ■ ZlRF-IL 11 

l ;’0 til i I R " UHGUEL7 I GES ZE1 CHEN .1I I 131 HHERZHHL. " 

SD j un DH Tfl "DIESER UFF: 1 MUSS BEI-'E I FS HIER DEFINIERT SEIN" 
. I DGi UrtTH" SPRUNG' EU I iE 1 T " 

‘ 0' ' DF-ITR " ZU I E L. 1 ;::. FEHLER " 

5D2'!. 0 Dh r Fi" dT RRTHDRESSE HICHT DE F I NI.E R T " 

SR2. Dfi CH " STUR TRDRESSF BE RE. I ! S DEF I HIER I " 
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in diesem Kapitel werden die Fehlermeldungen beschrieben, 
die vom Assembler ausgegeben werden, diese sind: 


( 1 ) 
( 2 ) 
( 3) 
( 4) 
( 5) 
( 6 ) 

( 7) 
( 8 ) 
( 9) 
( 10 ) 
( 11 ) 
( 12 ) 
(13) 
( 14) 

( 15) 
( 16 ) 

(17) 

( 18 ) 

(19) 

( 20 ) 


Syntax-error / kein nmemotechn isolier Code 

Syntax-error / keine Direktive 

Syntax-error / Operand fehlt 

Syntax-error / Klammer falsch gesetzt 

Syntax-error / Operand falsch spezifiziert 

angegebene Adressierungsart bei diesem Befehl 

n i c h t rnö g 1 i c h 

kein Operand erlaubt 

Operand muß eine Konstante sein 

Operand muß eine Marke sein 

Operand hat falsche Form 

Marke bzw. Konstante schon definiert 

Ausdruck enthält mehr als zwei Argumente 

Wert zu groß 

falsche Länge für hexadezimalen bzw. binären 
Ausdruck 

ungültiges Zeichen in binärem Ausdruck 
dieser Wert muß bereits hier definiert sein 
Sprung zu groß 
zu viele Fehler 
Startadresse nicht definiert 
Startadresse wurde schon definiert 


Wer selbst den Assembler ergänzen will, kann auch diese 
Fehlerliste nach eigenem Ermessen noch ausbauen. 


Wer will, kann sich sogar seine mnemotechnischen Bezeich¬ 
nungen, abweichend von den hier' angegebenen Üblichen, sel¬ 
bst wählen, vielleicht mit deutschen Kürzeln. Zwingende 
Voraussetzung ist jedoch, daß die mnemotechnischen Be¬ 
zeichnungen drei Buchstaben beinhalten. 

Direktiven können von jedem selbst eingebaut werden, ohne 
daß diese auch dre i buchstabig sein müssen (vgl auch Band 
4). 
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5.2 Häufig benötigte Unterprogramme 


Im folgenden werden die Unterprogramme erklärt, die aus 
Rechenzeitgründen an den Anfang des Programms genommen 
wurden. 

10 Ein Zeichen lesen aus File #2 in 1$ und II 
50 Position (A) von A$ in AA$ bestimmen 

100 Nachfolgende Blanks von T$ eliminieren 

150 Führende Blanks von T$ eliminieren 
200 2-stellige Hexzahl (H$) aus H bilden 

250 4-stellige Hexzahl (HH$) aus HH bilden 

350 Wert von 2-stelliger Hexzahl (H$) nach H 

400 Wert von 4-stelliger Hexzahl (HH$) nach HH 

500 Name TN$ in Tabelle suchen und Werte bestimmen 
600 Check auf mnemotechnischen Code 


Zeichen aus Datei einiesen 

15 GET#2,14 

25 IFI4=■"TUENI4=CHR4C0> 

30 11=flSC<14 > 

35 RETURN 


Dieses kurze Unterprogramm liest ein Zeichen aus einer Da¬ 
tei (//2) ein und speichert in der Variablen IS den Status 
des IFC-Bus ab, in 1$ das Zeichen selbst und II dessen 
ASCII-Code. Da von der Floppy eingelesen wird, muß das 
Zeichen CHR$(0) gesondert behandelt werden, da es von der 
Floppy als sogenannter Null-String eingelesen wird. 


Indexfunktion 


55 fl = Q 

60 RR=LEN <: R4 > 

65 I F'RR>LEN < RR4 > THEHS5 
70 FORR= 1 TOL.EN < RR4 > -RR+1 
75 I FM ID4 < RR 4Fl, RR > OR4THENNEXT 
S0 I F'R>LEH C RR4 ') -RR+1 TUEHR=0 
85 RETURN 


Dieses Unterprogramm dient dazu, die Position einer Teil- 
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zeichenreihe in einer größeren Zeichenreihe zu bestimmen. 
Dazu wird von Beginn an die größere Tei1zeichenreihe 
stückweise mit der kleineren Zeichenreihe verglichen und 
das Unterprogramm abgebrochen, sobald Gleichheit vorliegt. 
In Zeile 65 befindet sich noch eine P1ausibi1tätsprüfung, 
da die Indexfunktion natürlich nicht ausgeführt werden 
kann, wenn die zu suchende Zeichenreihe größer ist als die 
Zeichenreihe, in der gesucht werden soll. 

Die Variable A (Ausgabeparameter) wird auf Null gesetzt, 
wenn die gesuchte Zeichenreihe nicht gefunden wurde. 


Nachfolgende Blanks eliminieren 


1 10 IFR IGHT*< T*, 1 > ==" 11 THEHTT=LEFTT C TT , L EN < T* >-1 > sGOT01 10 
120 RETURN 


Dieses kurze Unterprogramm schneidet von hinten von einer 
gewünschten Zeichenreihe, die in der Variablen T$ überge¬ 
ben werden muß, in einer Schleife jeweils anhängende 
Blanks ab. Diese Schleife wird abgebrochen, sobald ein an¬ 
deres Zeichen als ein Leerzeichen abgefragt wird. 


Führende Blanks eliminieren 


160 I FLEFTT < TT1 > = " " THENTT =f'11 DT < TT.. 2 > : GOTO 160 
170 RETURN 


Analog zu dem letzten Unterprogramm werden hier von vorne 
die Blanks abgeschnitten. 


Zweistellige Hexadezimalzahl bilden 

2 1 0 HT=M I DT C NET , H/16 +11 > +MI DT < HET .. < HUND 15 } +1 , 1 > 
220 RETURN 


In diesem kurzen Unterprogramm werden aus einer Integer¬ 
zahl bis 255 zwei hexadezimale Ziffern gebildet. 
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Vierstellige Hexadezimalzahl bilden 

260 14=IHT<HH/256> 

270 GOSUB200 
28© HHT=HT 
290 H=HH-256#H 
300 G 0 SIJ B 2 0 0 
31.0 HH:T=HHT+HT 
320 RETURN 

Dieses Linl.erprog rainm funk I. inn iert genauso wie das vorhe¬ 
rige jedoch werden hier aus Integer/ah len bis zu Höhe von 
32767 vier hexadezimale Ziffern gebildet, dazu wird das 
vorherige Programm zweimal für die Werte JiM 1(1111/256) und 
den Rest dieses Wertes auf gerufen. 


Integerzahl aus zweistelliger Hexadezimalzahl 

360 H= 16* FH V < RISC < HT ’> +FN V < RSC < MI DT < HT.. 2 > > > 

370 RETURN 

Dieses Programm bildet die Umkehrung zu dem weiter oben 
beschriebenen Programm und errechnet aus einer zweistel¬ 
ligen Hexadezima1zah1 einen Integerwert. 


Vierstellige Hexadezimalzahl in Integerwert umwandeln 

410 HT=LEFTT < HHT2 > 

420 GOSUB350 
430 HH=256*H 
440 I IT=B I GH TT C HHT... 2 > 

450 G OS LJ B 350 
460 Hl l=:HH+H 
470 RETURN 

Dieses Programm bildet die Umkehrung zu dem Unterprogramm 
ab Zeile 250, indem eine vierstellige Hexadezima1zah 1 in 
einen Integerwert bis 32767 umgewandelt wird. 


Tabelle durchsuchen und Wert bestimmen 

510 TF:=0 

520 TNT=LEFTT C TNT8 > 

530 IF T Fl=0 THE N R ETU R N 

540 FORTF—1 TOTiü 

550 IFTHT < TF > OTNTTHENNEXT 

560 IFTF>TFJTHENTF=0 : RETLJRH 

570 TV=TV<TF> 
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580 TVT=TVT'::TF> 

596 RETURN 

In diesem iml.erprogramm wird in der Symboltabelle (die vom 
Benutzer selber definiert wird) ein Wert gesucht. Die Va¬ 
riable TI- ist Null, falls nicht gefunden und die Nummer 
des Symbols in dem Symbolfeld, falls es gefunden wurde. 
Außerdem werden die Variablen TV, die den Wert des Symbols 
angibt, und 1Y$, die den Typ des Symboles angibt, 
vorbesctzt. Typ eines Symboles kann sowohl Label (Marke) 
als auch konstante sein. 


Test auf Vorhandensein der mnemotechnischen Bezeichnung 

610 FORK= 1TOKS 1 

620 I FflTOKT C K > THENNEXT 

63 0 IF K > K 9 T H E N K = 0 

640 l<N:=|<TKK> 

650 RETURN 

ln diesem Unterprogramm wird überprüft, ob die im Source- 
Code eingegebene mnemotechnische Bezeichnung überhaupt zu¬ 
lässig ist, wobei der Variablen K die Nummer des Symboles 
in dem Feld zugeordnet wird. Ebenfalls wird noch der Typ 
von dem Code (siehe Kapitel 5.1.1) an die Variable KM 
übergebe n. 


5.3 Seltener verwendete Unterprogramme 


An dieser Stelle sollen die größeren Unterprogramme be¬ 
schrieben, wie sie später beim Hauptprogramm benutzt wer¬ 
den. Zum Verständnis des Hauptprogramms sind diese Unter¬ 
programme von entscheidender Bedeutung. Bitte haben Sie 
Verständnis dafür, daß wir nicht aufs aller genaueste auf 
die Unterprogramme eingehen können, da sonst der Rahmen 
dieses Buches gesprengt würde. 


5.3.1 Eine Zeile assemblieren 


100101 CT="" 

10020 IJT=" " 

101030 ER=0 
10048 GOSUB150 
1O050 R 
10060 RRT=TT 
10070 G O SIJ E 1 5 0 
10080 IF R T H ENT T=L_ E F T T 


IT, R -1 > 
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10 o y 0 G 0IJ B1Q G 

10100 IFLEFT* < Tf , 1 > = " :■< " THEHGOSUB13000 : RETURN 
10110 Rflf=Tf 
10120 Flf=" = " 

1013© GOSlJB50 

10.140 IFH=0THEN 10230 

10150 TOT... LE FT f < TT , fl-1 > 

1 © 1 6© TT =141 Df C Tf... R+. 1 > 

10170 G OSU B1 5 0 
10190 SI=2 
10190 KM=4 
1020 0 0 0 SIJ B15000 
10210 IFERTHENEETURH 
10220 Tf=T0f 
1023G GÜSUB100 
10240 THf=Tf 
10250 TVf="COHU" 

10260 TV=W 
10270 GOSUB1S000 
10280 RETURN 

10290 I FRDf = " " THENER= 19 sGOSUB1700© : RDf=CHRf 0 > +CHRf C © > 
10300 Rf=" : " 

1 Fi 31U G O S U B 5 © 

10320 IFR=0THEN10400 
1033© T N f=L E F T f C Tf,R-1 > 

1 © 3 4 © T f=M 1 D t C T f... R +1 > 

1©350 G0SUB150 
1036© TVf="LRBL" 

.1.0370 TV=flD 
10380 G O S IJ B18 0i Ei 01 
1039© IFERTHENEETURH 
1040101 flf=" 11 
10410 RRf=Tf 
1 © 4- 2 © G 0 S IJ B 5 © 

18430 IFR04flHOLEN<Tf >>3THENER=1 :GOSUB1700©:RETURN 
10440 IFTf=""THENRETURN 
10450 Rf=L.EFTf < Tf , 3 > 

1 014601 G0SUB6@£i 

104701 IFK=0THENER = 1 :GOSUB 1700© :: RETURN 
10480 Tf=MID*<Tf,4> 

10i 4901 130SIJ B14 © 0i 0i 
1050© IFERTHENEETURH 

1©51 © IFMO>=©ANDKM=0THENER=7:GOSUB17000s RETURN 
1052© IFMO=—1flNDKM>0THENER=3:GOSUB17000:RETURN 
1 ©530 0NKI4 +1 GOTO 1 1000,11100, 1 120© . 1 13001.1140© .11500 
10540 STOF : ' 

110100 M=0 
1 101101 G 0 S IJ Ei 12 0i 0i 0i 
1102© RETURN 
11100 14=2 

1 1 11 © IFMO=1ORMO=4THENM=0 
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1 1 12 0 1F l'l 0 1 0 T H E N M = 1 

I 113 0 G 0 S U B12080 
11140 HH=W 

11150 GOSUB250 

II 160 C$=C$+R IGHT* <HH-f ,2> +LEFT*< HH$ , 2> 

11170 RETURN 

11200 M=MO 

11210 G 0 S LJ B12000 

11220 IFM0=9THENRETURN 

11230 H1=<M0=0GRMO=1ORMO=2GRMO=3ORMO=7ORM0=8> 

1 1240 I FH 1 THENH=--H : GGSUB200 : CS=C*+H* : RETURN 
11250 HH=N 
1 12 ei 0 G O S U B 2 5 0 

11270 C*=C*+RIGHTT <HH*,2 > +LEFT* <HHT,£ > 

11230 RETURN 

11300 IFW>255THENER=3 : GOSUB17000 s RETURN 

11310 H=W 

11320 GOSIJB200 

11330 CT-:HT 

11340 RETURN 

11400 HH=W 

11410 GOSUB250 

1 1420 CT=RIGHTt C HH$■, 2 > +L.EF T3: CI .H t , 2 > 

11430 RETURN 
11500 M=1 

11510 IFMO=1ORMO=4THENM=0 
11520 G 0 S U E.' 1 £ 0 0 0 
11530 H--W.RD-2 

11540 IFH>1270RHC-128THENER=17:GOSUB17000:RETURN 
11550 IFH<0THENH=H+256 
11560 G0SUB200 
11570 C$=C*+H$ 

11580 RETURN 

Mit (Jiesem Unterprogramm wird eine Zeile des Source-Codes 
in den entsprechenden Maschinencode umgewandelt. 

Bemerkung eliminieren 

Zunächst werden einige Variablen vorbesetzt (C$, U$, ER) 
und die führenden Leerzeichen abgeschnitten. In den Zeilen 
10050 bis 10090 wird eine Bemerkung gesucht. Die Bemerkung 
muß immer' hinten stellen und wird anschließend abgeschnit- 
l.en, da sie für die Assemblierung nicht gebraucht wird. 

Direktive feststellen 

Liegt eine Direktive vor, so wird das Unterprogramm zum 
Behandeln der Direktiven aufgerufen und das Unterprogramm 
zum Assemblierer einer Zeile sofort verlassen. 
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Konstanten-Definition 

In den Zeilen 10110 t)is 10280 wird die Definition von Kon¬ 
stanten behandelt. Dazu wird zunächst ein Gleichheitszei¬ 
chen in der Souree-Zeile (jesucht und wenn kein Gleich¬ 
heitszeichen vorliegt, wird zur- Behandlung von Labels 
übergegangen (ab Zeile 10290). Zunächst werden die beiden 
Teilausdrücke vor und hinter dem Gleichheitszeichen in den 
Variablen T0$ und 1$ zwi sehengcspeieher I und eventuell 
auf tauchende Leerzeichen eliminiert. Dann werden die Va¬ 
riablen für die Grobe des Symbols und den Modus des Be¬ 
fehls gesetzt, die bei einer Konstanten-Defin i t ion immer 
31 = 2 und KM=5 sind. Da die Kons tantenvere inharung aus 
einem Doppelterm (zwei Terme verknüpft, mit einem einzigen 
Operator) bestehen kann, wird das Unterprogramm zur Aus¬ 
wertung dieses Ausdrucks ciufgerufen. Anschließend erfolgt 
eine Abprüfung, ob ein Fehler vorlag, wenn ja, wird das 
Unterprogramm abgebrochen. In den Zeilen 10220 bis 10270 
wird das Symbol in die Symboltabelle eingefügt. Der im Un¬ 
terprogramm ab Zeile 15000 berechnete Wert wird dem Symbol 
zugeordnet, der Typ des Symbols ist immer eine Konstante 
Word (CONW), und der Name wird in TN$ abgespeichert. 


Labels / Marken 

Vor der Behandlung der Marken wird zunächst abgeprüft, ob 
eine Startadresse gegeben war oder nicht. Wenn nicht, wird 
eine Fehlermeldung ausgegeben und die Startadresse auf 0 
gesetzt. 

Zeilen, die Labels / Marken beinhalten, enthalten auch im¬ 
mer einen Doppelpunkt. Zunächst wird abgeprüft ob die Zei¬ 
le einen Doppelpunkt enthält, wenn nicht wird die Behand¬ 
lung der Labels übersprungen. 

Anschließend wird der Variablen TN$ der Name des Labels 
zugeordnet, der Variablen C$ eine eventuell folgende Be¬ 
fehlszeile. Anschließend wird - ähnlich den Konstanten - 
das Label in einer Tabelle eingeordnet. 


Typ und Modus einer Befehlszeile feststellen 

Wenn weder eine Direktive noch eine Konstante noch ein 
Label vorliegt, so muß zwangsläufig eine Befehlszeile 
vorliegen. Das Programmstück von Zeile 10400 bis 10540 
stellt den Modus und den Typ einer Befehlszeile fest und 
verzweigt in Zeile 10530 aufgrund des festgestellten Typs 
in die entsprechenden Unterprogrammstücke. 
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Zunächst wird die gefundene mnemotechnische Bezeichnung in 
der Tabelle gesucht und aus den zugehörigen Werten Typ und 
Modus festge legt. 


Befehle ohne Operand 

Befehle ohne üperanten sind am einfachsten zu handhaben. 

I ür sie braucht lediglich der- Code des eigentlichen Be¬ 
fehls übergeben zu werden, was durch ein Unterprogrammauf- 
ruf von /eile 12000 erfolgt. 


Absolute und indirekte Sprünge 

entsprechend der Sprungart wird die Variable M auf 0 (ab¬ 
solute Sprünge) oder auf 1 (indirekte Sprünge) gesetzt. 
Zeile 11130 setzt den entsprechenden Code in die Variable 
C$, und der Rest des Programmstückes bis hin zur Zeile 
11100 wandelt den Operanden in eine hexadezimale Zahl um 
und ergänzt die Befehlszeile C$. 


Befehle (keine Sprünge) mit Operanden 

Analog den eben auf gezeigten Programmstücken wird auch 
hier wieder entsprechend dem Modus der hexadezimale Wert 
des Befehls in die Variable C$ geschrieben und anschlies¬ 
send die in hexadezimale Zeichen umgerechneten Operanden. 


Byte und Word 

Die beiden Befehle BYT und IVOR sind Konstanten-Definitio- 
nen für jeweils ein Byte bzw. zwei Byte. Diesen Konstanten 
wird zunächst keine Bezeichnung zugeordnet, sondern nur 
ein Wert. Z.B. werden auf diese Art und Weise Variablen 
definiert, mit z.B. 'VARl: BYT 00'. 


Relative Sprünge 

In dem letzten Stück des Unterprogramms ab Zeile 11500 
werden die relativen Sprünge behandelt, in dem auch hier 
wieder die Befehlszeile im Nexcode (C$) mit dem entspre¬ 
chenden hexadezimalen Wert des Befehls und - als Operand - 
mit der Zahl der Bytes (in Hex-Code) besetzt wird, um die 
gesprungen werden soll. Einerseits dienen relative Sprünge 
der Rechengeschwindigkeit, andererseits wird die Symbolta¬ 
belle nicht so. groß, da nicht soviele absolute Adressen 
verwendet werden müssen. Ein weiterer Grund ist die Spei- 
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cherplatzersparnis, da relative Sprünge nur um maximal 127 
Bytes nach vorne bzw. 128 Byte zurückspringen können, und 
damit der Operand in ein Byte paßt. Wurde für die relati¬ 
ven Sprünge eine Sprungweite größer als der eben angegebe¬ 
ne Bereich errechnet, so wird eine Fehlermeldung ausgege¬ 
ben. 


ZEILE ASSEMBLIEREN lOOOO - 11580 


Variablen: 

Name 

! Typ ! 

Bereich 

! Bedeutung 

A 

! R ! 

0 . . .2 55 

! Position v. A$ in AA$ 

A$ 

! P ! 

1 Zeichen 

! zu suchendes Zeichen 

AA$ 

! P ! 

Ze ichenreihe 

! durchzusuchende 


j ) 


! Zeichenreihe 

AD 

! G ! 

0. . .65535 

! aktuelle Adresse 

AD$ 

! G ! 

' ' oder 2 Byte 

! Startadresse (L/H) 

c$ 

! A ! 

bis 5 Zeichen 

! ass. Maschinencode 

ER 

! A/P/R ! 

0...E9 

! Fehlerriummer 

Hl 

! H ! 

0 oder -1 

! log ische lli lfsvar. 

HH 

! P ! 

0...65535 

! Wert Für Hexzahl 

K 

! R/P ! 

0. . .K9 

! Nummer des 3efehls 

KM 

! P ! 

0. . .5 

! Typ des Befehls 

M 

! P ! 

0 . . . 10 

! Adressierungsmodus 

MO 

! R ! 

-1. . .10 

! Modus 

SI 

! P ! 

1 oder’ 2 

! Anzahl Byte des Oper. 

T$ 

! E/P ! 

Ze ichenreihe 

! zu assemblier. Zeile 

10$ 

! H ! 

Ze ichenreihe 

! Zeichenreihe bis '=' 

TN$ 

! P ! 

Ze ichenreihe 

! Symbol na me 

rv 

! P/R ! 

0. . .65535 

! Wert des Symbols 

TY$ 

! P/R ! 

1 coriw ' , 1 labl' , . 

. ! Typ des Symbols 

u$ 

! A ! 

1 1 oder 'R' 

! R wenn Operand noch 


; ! 


! nicht definiert 

W 

! R ! 

0 . ..15535 

! Wert des Doppelterins 


Felder 

( Arrays): 


Name ! 

Dirnen. ! Typ ! Bereich 

! Bedeutung 

! ke ine! ! ! ! 

i--- := --- - - 1 
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Unterprogrammaufrufe : 



i n ! 

nach ! 

Zweck 

! 

_ . i 


10040! 

150 

Führende Blanks von T$ eliminieren ! 


10070! 

50 

Position v. A$ in AA$ 

! 


10090! 

100 

Nachf. Blanks von T$ 

eliminieren ! 


10100 ! 

13000 

Directiven auswerten 

j 


10130! 

50 

Position v. A$ in AA$ 

1 


10170! 

150 

Führende Blanks von T$ eliminieren ! 


10200! 

15000 

Ooppelterm auswerten 

! 


10230! 

100 

Nachf. Blanks von T$ 

eliminieren ! 


10270! 

18000 

Symbol in Tabelle einfügen ! 


10290 ! 

17000 

Fehler registieren 

1 


10310! 

50 

Position v. A$ in AA$ 

j 


10350! 

150 

Führende Blanks von T$ eliminieren ! 


10380! 

18000 

Symbol in Tabelle einfügen ! 


10420! 

50 

Position v. A$ in AA$ 

! 


10430! 

17000 

Fehler registieren 

! 


10460! 

600 

Check auf Mneinonic Keyword ! 


10470! 

17000 

Fehler registieren 



10490! 

14000 

Mode feststellen 



10510! 

17000 

Fehler registieren 



10520 ! 

17000 

Fehler registieren 



11010! 

12000 

C$ mit Code besetzen 



11130 ! 

12000 

C$ mit Code besetzen 



11150! 

250 

4-stell. Hex-Zahl aus 

HH bilden ! 


11210! 

12000 

Oft mit Code besetzen 



11240! 

200 

2-stell. Hex-Zahl aus 

H biIden ! 


11260! 

250 

4-stell. Hex-Zahl aus 

HH bilden ! 


11300! 

17000 

Fehler registieren 



11320! 

200 

2-stell. Hex-Zahl aus 

H biIden ! 


11410! 

250 

4-stell. Hex-Zahl aus 

H H b i 1 d e n ! 


11520 ! 

12000 

CS mit Code besetzen 



11540! 

17000 

Fehler registieren 



11560! 

200 

2-stell. Hex-Zahl aus 

H biIden ! 


Verzweigungen 

nach außen : 



in Ze 

! nach 

! Bedingung ! 

Bemerkung ! 


10100 

! RFTURN! LFH:KT$,1)=T ! 

Direktive ! 


10210 

! KtTURN ! FR NF 0 ! 

Fehler beim Doppel-! 



! 

; ! 

term auswerten ! 

1 

10280 

! R1-TURN! ' = ' war in T$ ! 

Symbol eingefügt ! 

- =---1 
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10390 

! 

! 

RETURN ! 

j 

ER NE 0 

J 

! 

fehler beim Ein¬ 
fügen eines Labels 

10430 

! 

RETURN ! 

A NE 4 

AND ! 

Kein Blank nach 


i 

j 

LEN(Tft) 

GT 3 ! 

Befehl 

1044 0 

! 

RETIJRN ! 

r$=‘ ' 

! 

Zeile ahgearbe i t.et 

10470 

! 

RFi TURN! 

K=Q 

i 

Ungültiger Befehl 

10500 

! 

| 

RETURN! 

! 

ER NE 0 

j 

! 

Fehler beim Fest- 
steilen des Modus 

10510 

! 

RETURN! 

MO GE 0 

AND ! 

Wenn KM=0,dann kein 


| 

! 

KM = 0 

j 

Operand er 1 aubt. 

10520 

| 

RETURN! 

MO = - 1 

AND ! 

Operand fehlt, 


j 

! 

KM GT 0 

i 

obwohl nötig 

10020 

! 

RETIJRN ! 

KM = 0 

! 

kein Operand 

10540 

j 

STOP ! 

KM GT 5 

j 

Wert von KM unmögl. 

11170 

| 

RETURN! 

KM = 1 

j 

JMP oder JSR-Befehl 

11220 

j 

RETURN! 

KM = 2 

AND MO = 9 ! 

Operand = Akku 

11240 

j 

RETURN! 

Hl 

i 

Ein-Byte-Operand 

11280 

! 

RETURN! 

KM = 2 

AND NOT 111 ! 

Zwei-Byte-Operand 

11300 

! 

! 

RETURN! 

! 

KM = 3 AND ! 

W GT 255 ! 

Byte größer als 255 

11340 

! 

RETIJRN! 

KM = 3 

j 

Byte reserviert 

11430 

j 

RETIJRN! 

KM = 4 

j 

Word reserviert 

11540 

j 

RETURN! 

II GT 127 OR ! 

Relativer Sprung 


! 

| 

H LT -128 ! 

z ii we i t 

11580 

! 

RETURN! 

KM = 5 

! 

Relativer Sprung 


5 . 3.2 Variable mit hexadezimalem Code besetzen 


12010 C#=KC$ KM > 

12028 IFC$=""THENER=6s GOSUB17000 
12030 RETURN 

In diesem kurzen Unterprogramm wird in der Variablen CS 
der hexadezimale Befehlscode eingetragen. Dazu wird aus 
den in Kapitel 5.1 beschriebenen DATA-Statements lediglich 
der entsprechende Code aus der Variabein KC$ (K,M) über¬ 
nommen. Wurde kein Code gefunden, so wird eine Fehlermel¬ 
dung ausgedruckt. 


5.3.3 Direktiven auswerten 


13 010 Fi fl $ M1D $■ (. T $2 
13ü20 G0SUB24000 
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1303ti u H D G O T013100132ü 0 .. 13300 
13040 ER=2 
13050 GÜSUB17000 
13060 RETURN 

13100 REM *** KORG DIRECTIVE 
13105 IFADT>""THENER=20sGOSUE17000:RETURN 
13110 T T=M IDT < T T.. 5 > 

13115 KM=4 
13120 G Ü SIJB1G 0 
13125 GOSUB150 
13130 G 0 SUB16000 
13135 IFERTHENRETURN 
13140 AD =41 

13145 HH — I NT t:AD/256 > 

13150 H=AD-256*HH 
13155 ADT=CHRT<H >+CHRTCHH> 

13160 F'RINT#3,ADT r 
13165 SA--AD 
13170 RETURN 

13200 REM *** ".'END DIRECTIVE *** 

13205 13=320 
13210 RETURN 

13300 REM *** KINO DIECTIVE *** 

13305 IFADT>""THENER=20:GOSUB17000:RETURN 
.13310 KM=4 

1 3315 INPUT " SJSTART ADRESSE |i||" .? TT 

13320 IFTT=" "TUEN 13315 
13325 G 0 S LJ f316000 
13330 IFERTHENRETURN 
13335 AD=U 

13340 HH=INT <AD/256> 

13 345 H=AD-256*HH 
13350 ADT=CHRT<H >+CHRT < HH > 

13355 PRINT#3ADT; 

13360 SA=AD 
13365 RETURN 

Das Unterprogramm ist wie folgt unterteilt: 

13000 Verteiler 

13100 %0RG - absoluter Start des Programms 
13200 %END - Ende des Sources-Listings 
13300 %IN0 - Input der absoluten Startadresse vom 
B i ldscii i rm 

Zunächst wird in der Variablen AA$ der Name der Direktive 
(der auch mehr als drei Zeichen enthalten kann) abgelegt 
und mit dem Unterprogramm ab Zeile 24000 die Nummer der 
Direktive bestimmt. Aufgrund dieser Nummer wird anschlies¬ 
send verzweigt. Wenn nicht verzweigt wird, so wird eine 
Fehlermeldung ausgegeben. 
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%ORG 

Die ersten zwei Byte des Object-Files werden in der Va¬ 
riablen AD$ abgespeichert. Wenn schon eine Startadresse 
definiert wurde, so wird ein Fehler ausgegeben. Ansonsten 
wird in den Zeilen 13110 bis 13140 der Operand ausgewertet 
und in der Variablen AD abgelegt. In dem restlichen Pro¬ 
grammstück wird die Dezimalzahl noch in zwei Characters 
zerlegt, die jeweils das Lower und Higher Byte angeben. An 
dieser Stelle sei noch angemerkt, daß das Abspeichern in 
der Object-Datei (auf Floppy) jeweils in zwei zusammenge¬ 
faßten Hexadezima1z i ffern zu einem Zeichen gespeichert 
wird. Z.B. wird hexadezimal 'FF' als CHR$ (255) gespei¬ 
chert. 

Als Abschluß wird noch in der globalen Variablen SA der 
Wert der Startadresse festgehalten, um ihn im weiteren 
Programm verwenden zu können. 


%END 

In dieser Zeile wird nur der INPUT-Status als Merker für 
das Ende des Sources-L istings gesetzt. 


%IN0 

Dieses Programmstück funktioniert analog der in den Zeilen 
13100 bis 13170 beschriebenen % ORG - Direktive, außer daß 
die Startadresse nicht als Operand im Source-Listing 
steht, sondern vom Bildschirm eingelesen wird. 


DIREKTIVEN 

AUSWERTEN 

13000 - 13365 

j 

! Variablen: 

j 

1 . 1 

! Name 

• >"yp ■ 

Bereich 

! Bedeutung 

! AA$ 

! P ! 

Zeichenreihe 

! in der gesucht wird 

! AD 

! G ! 

0. . .65535 

! aktuelle Adresse 

! AD$ 

! G ! 

2 Zeichen (Byte) 

! Startadresse mit CIIK$ 

! ER 

! P ! 

0. . E9 

! Feh lernummer 
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! 0...255 
! 13... 255 
! 0...320 
! 0... 5 
! 0...65535 
! Zeichenreihe 


Felder (Arrays): 


Dateien 


Typ ! Bereich 


Lower-Byte Startadr. 
Higher-Byte Startadr. 
Input-Status 
Typ des Befehls 
Startadresse 
Vom Bildschirm einge¬ 
lesene Startadresse 


! Bedeutung 


! ft ! Name 


! T ! Bemerkung 


3 ! F$+“...."! p ! Vorläufige Objektdatei 


Unterprogrammaufrufe 


i n ! 

nach 

Zweck 

13020! 

24000 

Nummer der Direktive feststellen 

13050 ! 

17000 

Fehler registrieren 

13105! 

17000 

Fehler registrieren 

13120! 

100 

Nachfolgende Blanks eliminieren 

13125! 

150 

Führende Blanks eliminieren 

13130 ! 

16000 

Einzelausdruck auswerten 

13305! 

17000 

Fehler registrieren 

13325! 

16000 

Einzelausdruck auswerten 


Verzweigungen nach außen : 

i n Z e ! 

nach ! 

3ed ingurig 

! Bemerkung 

13060 ! 

RE TURN! 

13 = 0 

! keine D i rektive 

13105 ! 

KETIJKN! 

AD$ GT "“ 

! Startadresse 

! 

J 


! bereits definiert 

13135 ! 

RETURN! 

FR NE 0 

! Fehler im Einzel- 
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! term 

! Ende von %or<j 
! Ende von %end 
! Startadresse 
! bereits definiert 
! Fehler im Einzel- 
! term 

! Ende von %ino 


! ! 

13170 ! RETURN! 11 = 1 
13210 ! RETURN! D=2 
13305 ! RETURN! ADft GT ' 
! ! 

13330 ! RETURN! ER NE 0 

! ; 

13365 ! RETURN! 11 = 3 


5.3.4 Mode feststellen 


14036 

REM MODE MO : 

....1 

=NO OPER. .? 


0=:# US Ul. s. 

ZEILE 

54030 

14040 

REM MODE MO. = 

10 

: THDIREC 

T 




14050 

REM SIZE: SI= 

1 

-> BYTE 


S1=2 -> NOR 

D 


14060 

GOSUB150 







14070 

IFTT=""THENMO= 

-1 

: RETURN 





14080 

IFTT="fl"THENMO 


: RETURN 





14090 

RRT=T T 







14100 

FÜRS2=1TO7 







14110 

R T=MID $ < 8 Z$ , S Z 

, 1 






14120 

GOSUB50 







14130 

R <: SZ :■ =R 







14140 

NENTS2 







14150 

IFR(2K>-(R(3) 

>0 

>THENER=4 : 

3 

jT 0170010 



14160 

L:=LEH FTT;' 







14170 

< RI GH TT TT.. 

1 :> 

O"X"flNDRI 

G 

RITT <: TT, 1 :k>" 

V " > 


14180 

I FR •: 4 TUEN I FR < 

5 .- 1 

>00RR 4 > -O 

L 

-1ORNVTHEN14 

500 


14190 

IFR<5 > THEMIFR< 

4 

>0ORR<5 >O 

L 

-1ORXVTHEN14 

500 


14200 

I FR 1 - 1URR 6 ■' 

:> l 

ORR <: 7S> 1 THENER=5 : GOTO 17 

000 


14210 

1FR C1 > TUEN IFR < 

2 

+ R<3)+H <4 > 

+R<5>+R(b>+R< 

7>THEN14500 

1 4220 

IFR < 6 > THEHIFR< 

f*" 

THEN14500 





14230 

I FR 7 TH EH I F r fl C 

6 

TUEN14500 





14240 

I FR C 6 > -i-R C 7 THE 

NIFR<1>+R<2> 

H- 

RC3>THEN14500 


14250 

IFflC1> THEMMO=0 

: T 

T=M I DT C TT 

cd 

>:GOTO14610 



14260 

IFRIGHTT'::TT..3j 

= " 

,K >"THEHMC 

— 

7:GOTO14600 



14270 

IFR1GHTTCTT..3::' 

= " 

.K>"THENMO 

= 

7:GOTO 14600 



14280 

IFRIGHTT<TT,3> 

= " 

>,V"THENMO 

=r 

3:GOTO14600 



14290 

I FR I GH TT T T, 3 ) 

==" 

. V " THEHMC 

= 

3;GOTO14600 



14300 

IFRIGHTTCTT, 1 

= " 

" THENMO-1 

0 

: TT=M I DT < T T 

2,L-2 







SI=2:GOSUB 

5000 

: RET URI' 

14310 

ZP = 0 







14320 

SI =2 







14330 

. I FR < 6 > THEN2P= 1 

: TT=M 1 DT < TT 

\zd 

: L:-L-1 :SI = 1 



14340 

I FR C 7THENZF'=2 

: 7 

T=MIDTCTT, 

2 

> : L=L-1 



14350 

I FR I GH TT < TT.. 2 > 

_II 

,.N"THB4MO= 

5 

:GOSUB14440: 

GOTO 1 

4410 

14360 

IFRIGHTTCTT,2> 

_ II 

.X"THENMO= 

er 

:GOSUB14440; 

GOTOl 

4410 

14370 

IF RIG HTT(TT, 2 

_II 

,V"THENMO= 

6 

.-GOSUB 14440 : 

GOTO 1 

4410 

14380 

I FR I GH TT'! TT, 2 > 


.V"THEHMO= 

iS 

:GOSUB14440 ; 

GOTO 1 

4410 

14390 

MO=4 







14400 

GOSUB14450 
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14410 IFERTHENRETURN 

14420 IF Ul <256 fl N D 2 P < 2 T H E H M 0=M 0—3 

144:1:0 RETURN 

1444 0 T T = L E F T T <. T TL - 2 > 

14450 I FZF'= 1 THE HM 0=410-3 
14460 G0SUI315000 
1447Ö RETURN 
14500 ER=:10 
14510 GOSUB17000 
1.4520 RETURN 
14600 TT=M I DT C TT , 2L-4 > 

14610 SI = 1 
14 620 G 0 S U B15000 
14630 RETURN 


Dieses Unterprogramm dient letztendlich zum Besetzen der 
Variablen MO, in der der Adressrnodus des jeweiligen Be¬ 
fehls festgelegt wird. Nicht festgestellt wird in diesem 
Unterprogramm, ob der jeweilige Befehl auch diesen Modus 
kennt. Aufgrund der Sonderzeichen und der Größe der Ope¬ 
randen wird dieser Modus festgestellt, z.B. wenn der Be¬ 
fehl ein ',Y' enthält, kann nur noch der Mode 3, 6 oder 8 
vorliegen, und liegen z.B. auch noch Klammern vor, so 
steht fest, daß der Modus 8 für einen indirekt indizierter 
adressierten Befehl vorliegt. 

Ist der Operand eine leere Zeichenreihe, so wird MO mit 
’1‘ besetzt , ist der Operand ein 'A' wird MO mit '9' be¬ 
setzt. In beiden Fällen wird das Unterprogramm sofort ver¬ 
lassen. 

Das Feststellen der Sonderzeichen und Besetzen des Arrays 
A() geschieht in den Zeilen 14060 bis 14140. Die Zeilen 
14150 bis 14240 enthalten diverse Prüfungen auf die Rich¬ 
tigkeit der Syntax (sind Klammern richtig gesetzt,...). 

In den Zeilen 14250 bis 14300 werden Modes behandelt, die 
aufgrund der vorhergehenden Programmzeilen schon definiert 
werden können. In den restlichen Zeilen wird jeweils für 
den Modus noch entschieden, ob die Adressierungsart in die 
Zeropage hineinze igt, oder ob der Operand eine absolute 
Adresse angibt. 
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Mode feststellen 14000 - 14630 


Variablen: 

Name 

• Typ 

! Bereich 

! Bedeutung 

A 

! R 

! 0...255 

! Position v. A$ in AA$ 

A$ 

1 P 

! 1 Zeichen 

! zu suchendes Zeichen 

AA$ 

! P 

! Zeichenreihe 

! durchzusuchende Zei.r 

ER 

! P/R 

! 0...E9 

! Fehlernummer 

L 

! H 

! 0...79 

! Länge von T$ 

MO 

! A 
! 

! -1...10 
! 

! Mode 

! -1 = kein Operand 


i 

| 

! 0 = immediate 


! 

! 

! 

! 

j 

! 

| 

! 

! 

I 

! 

1 

1 

! 

! 

! 

! 1 = zeropage 

! 2 = zeropage ; x 

! 3 = zeropage,y 

! 4 = absolute 

! 5 = absolute,x 

! 6 = absolute,y 

! 7 = indexed indirect 

! 8 = indirect indexed 


! 

! 

! 

j 

! 9 = accu 

! 10 = indirect 

SI 

! A 
j 

! 1 oder 2 
j 

! Anzahl Bytes des 
! Operanden 

sz 

! H 
! 

! 1. . .7 

! 

! Nummer des zu suchen- 
! den Sonderzeichens 

sz$ 

! G 

! "#()/•§!+-*/$ 

! alle Sonderzeichen 

T$ 

! E/P/A 

! Zeichenreihe 

! Operand 

w 

! R 

! 0...65535 

! Wert des Doppelterms 

XY 

! H 
j 

! 0 oder -1 
j 

! XY=0,wenn letztes Zei 
! d. Oper. 1 x‘ od. ‘ y' 

ZP 

! H 

j 

! 

I 

! 0. . .2 

j 

! 

I 

! Zeropage-Option 
! 0=keine Vorgabe 
! l=Vorgabe : Zeropage 
! 2=Vorgabe : Absolute 
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Felder 

(Arrays): 



Name ! 

Dirnen. ! Typ ! Bereich 

! Bedeutung 


A ! 

1 

L EN(SZ$) ! H ! 0...255 
j j 

! Position 
! Sonderz. 

jedes 
i n AA$ 

Unterprogrammaufrufe : 

i n ! 

nach ! Zweck 




14060! 150 ! Führende Blanks von T$ eliminieren 

14120! 50 ! Position v. A$ in AA$ bestimmen 

14300! 15000 ! Ooppe lausdruck auswerten 

14460! 15000 ! Doppelausdruck auswerten 

14510! 17000 ! Fehler registrieren 

14620! 15000 ! Doppelausdruck auswerten 


Verzweigungen nach außen : 


i n Ze 

nach ! 

Bedingung ! 

Bemerkung 

14070 

RETURN! 

T$=" " ! 

Kein Operand 

14080 

RETURN! 

T$=”a" ! 

Operand = Akku 

14150 

17000 ! 

a ( 2 ) NE ! 

Klammern nicht 


! 

-(a(3) GT 0) ! 

paarwe i se 

14200 

17000 ! 

a (1) GT 1 OR ! 

Immediate- bzw. 


J 

a(6) GT 1 OR ! 

Zeropagezeichen 


! 

a(7) GT 1 I 

nicht an 1.Stelle 

14300 

RETURN! 

RIGHT$(T$,1)=")‘ ! 

indirect adressing 

14410 

RETURN! 

ER NE 0 ! 

Fehler 

14430 

RETURN! 

! 

Ende 

14520 

RETURN! 

div. Möglichkeiten! 

Fehlernummer 10 

14630 

RETURN! 

1 

Ende 


5.3.5 Doppeltem auswerten 


15010 RFI4--T4 
15020 FORSZ=1TO11 
15030 fl*=M1D* < SZt ,SZ,1> 
15040 G OSUB5 0 
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1505 0 H • S Z > = H 
!5860 HEXT 

15070 IFFK 1 > + fl<2> + fl 3 > + fl<4> + fl < 5> + flt6>+fl<7 > THEN15500 

15080 fl=-< fl < 3 > >0 >- < fl < 9 >0 > - < fl < 10 > >0 >.< Fl < 1 1 > >0 > 

15090 IFfl=0THENGOSUB16000:GOT015250 
15100 IFfl>1THENER=12:GOTO17000 
1511 0 fl=fl 8 >+fl c 9 '> 4 Fi <: 1 0 ':> +i : i 111 > 

15120 T1 T=LEF'T$ (. TTfl-1 > 

15130 T2T=M I DT C TT , fl+1 > 

15 1.40 T T=T 1T 
1515 0 G O S LJ B16000 
15168 II1 --N 
15170 TT=T2T 
1518 0 G 0 S U ß 16000 
15190 W2=W 

15200 IFERTFIEMEETUEN 
15210 I FA8 > THE HW=111 -Hl 2 
15220 I Ffl < 9 > THENW=W 1 -112 
15230 I Ffl < 10 :• THE:HI1=H 1 *112 
15240 I Ffl ■; 1 1 > THEHH--= IHT H1, '112 > 

15250 I Fll>=256 t S I THEHER= 13 : GOTO 17000 
15260 RETURN 
15500 ER - 3 O 
15 51 0 G 0 S U B17000 
15520 RETURN 

Unter Doppelterm verstehen wir bei dem Assembler Terme, 
die aus zwei Operanden und einem Verknüpfungs-Operator wie 
z.B. '+' bestehen. In diesem Unterprogramm werden nur Dop¬ 
pelterme ausgewertet. Oedoch werden auch die Einzelauswer¬ 
tungen hier behandelt, da dann das Unterprogramm ab Zeile 
16000 in 15150 aufgerufen wird. 

Die Zeilen 15010 bis 15060 beinhalten wieder eine Prüfung 
auf Sonderzeichen. Wenn irgendeines der ersten sieben Son- 
derzeichen wie sie in dem Kasten bei Mode feststellen un¬ 
ter der Variablen SZ$ festgehalten sind, hier auftreten, 
wird zur Zeile 15500 übergegangen, wo eine Fehlermeldung 
ausgedruckt wird. 

In Zeile 15080 wird in der Variablen A aufsummiert, wie¬ 
viele der Sonderzeichen ' + '' und '/', in der Be¬ 
fehlszeile erscheinen. Wenn kein Sonderzeichen erscheint, 
liegt ein Einzelausdruck vor, und das entsprechende Unter¬ 
programm wird aufgerufen und zum Ende des Unterprogramms 
verzweigt. 

Wenn mehr als ein Sonderzeichen vorliegt, wird eine Feh¬ 
lermeldung ausgegeben. In Zeile 15110 wird der Variablen A 
die Position des Sonderzeichens zugewiesen. Die Variablen 
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Tl$ (linker Teil) und T2$ (rechter Teil) beinhalten an¬ 
schließend die durch das Sonderzeichen getrennten Text¬ 
teile. Beide Ausdrücke werden durch Aufrufen des Unter¬ 
programms für Einzelausdruck auswerten getrennt behandelt. 

In den Zeilen 15210 bis 15240 werden die eigentlichen Ver¬ 
knüpfungen durchgeführt, wobei die in den Variablen W1 und 
W2 festgehaltenen Dezimalwerte der Operanden verwendet 
werden. 


Doppelausdruck auswerten 15000 - 15520 


Variablen: 


Name 

J 

Typ ! 

Bereich 

! Bedeutung 

A 

! 

R/H ! 

0. . .255 

! Position v. A$ in AA$ 

A$ 

! 

P ! 

1 Zeichen 

! zu suchendes Zeichen 

AA$ 

! 

P ! 

Ze ichenreihe 

! durchzusuchende Zei.r. 

ER 

| 

P/R ! 

0. . . E9 

! Fehlernummer 

SI 

! 

| 

E ! 

| 

1 oder 2 

! Anzahl Bytes des 
! Operanden 

SZ 

! 

! 

H ! 

| 

1. . .7 

! Nummer des zu suchen- 
! den Sonderzeichens 

sz$ 

| 

G ! 

*#(),.§!+-*/«■■ 

! alle Sonderzeichen 

T$ 

1 

E/P/A! 

Zeichenreihe 

! Operand 

ri$ 

j 

H ! 

Ze ichenreihe 

! Erster Term 

T2$ 

i 

H ! 

Ze ichenreihe 

! Zweiter Term 

W 

| 

! 

R/A ! 

! 

0 . . .65535 

! Wert des Einzelterms 
! Wert des Doppelterms 

W1 

! 

H ! 

0. . .65535 

! Wert des 1.Terms 

W2 

I 

H ! 

0. . .65535 

! Wert des 2.Terms 

! Felder 

1 

( Arrays) : 


! Name 

• 

Dirnen. 

! Typ ! Bereich 

! Bedeutung 


A !LEN(SZ$)! H ! 0...255 ! Position jedes 

! ! ! ! Sonderz. in AA$ 


i 


i 
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Unterprogrammaufrufe : 


i n ! 

nach ! 

Zweck 


! 

I 

15040! 

50 ! 

Position von A$ in AA$ bestimmen 


15090 ! 

16000 ! 

Einzelausdruck auswerten 


15150! 

16000 ! 

Einzelausdruck auswer 

ten 


15180! 

16000 ! 

Einze1ausdruck auswerten 


15510! 

17000 ! 

Fehler registrieren 


- i 

! 

Verzweigungen nach außen : ! 

! 

i n Ze 

nach ! 

Bedingung ! 

Bemerkung 

! 

15100 

17000 ! 

A GT 1 ! 

Mehr als 1 Operatori 

15200 

RETURN! 

ER NE 0 ! 

Fehler 


15260 

RETURN! 

! 

Ende 


15500 

RETURN! 

A(l...7) NE 0 ! 

Falsches Sonderz. 




! 

im Doppelterm 

! 

- i 


5.3.6 Einzelausdruck auswerten 


Zunächst werden in dem Unterprogramm zum Auswerten eines 
Einzelausdrucks auch wieder die führenden und folgenden 
Leerzeichen abgeschnitten. Wie bereits im letzten Kapitel 
erwähnt, wird dieses Unterprogramm bei Doppeltermen auch 
ausgewertet, dann jedoch für jeden Teil des Terms ge¬ 
trennt. 

Wenn der Einzelterm nur aus einem besteht, so wird die 
Adresse der eigenen Assemblerzeile als Wert herangezogen. 
Liegen hinter dem noch mehr Zeichen vor, so steht dort 
entweder ein hexadezimaler oder ein binärer Ausdruck. Ob 
hexadezimal oder binär, ergibt sich aus der Länge des dem 
$-Zeichen folgenden Ausdruckes: acht weitere Zeichen be¬ 
deuten immer binär; zwei oder vier Zeichen immer hexadezi¬ 
mal . 

Wenn der Operand eine Ziffer ist, so wird dessen Wert ein¬ 
fach über die Funktion VAL bestimmt. In allen anderen Fäl¬ 
len, liegt mit Sicherheit ein Symbol vor, das dann im wei¬ 
teren in der Symboltabelle herausgesucht wird. Wenn das 
Symbol in der Tabelle gefunden wurde, so wird der dort ge- 
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16010 ÜUSUB100 
16020 G 0 SIJ B15 0 

16030 IFT$r"T"THENM=HD :RETURN 
16040 I FL.EFTT < TT1 C> " T " TI-IEU16120 
1.6050 T T.M1D t (. T T , 2 > 

16060 1 FLEH<TT 1=2THENHT= TT:GÜSUB350;U=H:RE 
16070 IFLEH':. TT> = 4THENITHT=TT :GOSUB40Ö : ITTIH : 
16088 I FLEH < TT > =3THENBBT=T $ OOSUB23000 :: W=B 
16090 ER=14 
1 610 0 G 0 S U B17 0 0 0 
16110 RETURN 

1 6 120 I FR SC < TT >=48FINDRSC < TT :< <-•5 7 T H Eli W -■ V R L 

16130 THT=TT 

1614 O G 0 S U B 5 Ö 0 

16150 1FTFTHENW=TV:RETURN 

16160 UlT=fiD+l 

16 170 IJHT-.-LEF'TT C TT8 > 

161S0 ÜNK MGOT01 6230 , 16290, 163 70... 16400,1 642 

16190 EP=16 

16200 G0 S I.J B 17000 

16210 UT=0 

: | 6220 G O T01 6458 

16230 I FTTQ= 1 0RM0=4THENlIT=7 : GO TO 16450 
16240 IFMÜ=10THENUT-6:GOTO16450 
16250 ER=6 
16260 G 0 S U B1700 0 
j 6270 LI"!" ::-0 
I 6280 G 0 T01645R 

16290 IF MO=0 T14 EI -IU T = 1 ; GOTO 16450 

1 6 3 0 0 i: f ri o < 4 r h e n u t= 31 o o r 01 6 4 5 0 

1 631 El I FM 0 < - 6T HEHU T .=■ 5 : G0T016458 
16320 I Fi'10 6=3 1 HEI I' IT . 4 : GOTO 16450 

163 30 ER--.-.6 

163413 GiJS UB 170R0 
16350 U i'-O 
1636.0 GOT 01 64 513 
16370 l ' T-- I 
I 6: .00 I in - f l! i 
1 6 3'-'0 i ,i jt0 1 6450 

164 00 UT.-2 
16410 UR::=HD 

16420 G0 T016450 
16430 UT=8 
164 4 0 G 0 T01 6 450 
;! 6450 G 0 S U B19 @ 0 O 
16460 IJT=: "R " 

16470 W“32763+128 :REIT DEFRUI..1 HEFT EUER HE 
164 80 I Fl .1T =■': 1 OPU'T + 3ÜRI.JT =4 THE NN .= 128 : REM DE FE 
1 64 98 IR..iT:=:8THENM::=Hi:n ::REIT DET WERT FUHR BF 
1 65,00 RETURN 


TURN 
RETURN 
B:RE TURN 


•'! TT : RETURN 


10 


IRE 3':,E.l i 135080 
IRRT EUER E'iTEH. 
TlMOHES 
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speicherte Wert einfach der Variablen W zugeordnet, und 
das Unterprogramm verlassen. 

In den Zeilen 16160 bis 16500 erfolgt die Behandlung für 
Undefinierte Symbole (im allgemeinen Vorwärtssprünge), die 
in eine Tabelle für Undefinierte Symbole eingetragen wer¬ 
den. In der Variablen UA wird die Adresse des Undefinier¬ 
ten Symbols festgehalten und in der Variablen UN$ die er¬ 
sten acht Zeichen des Symbols. Im folgenden muß nur noch 
der Typ des Undefinierten Symbols bestimmt werden. Abhän¬ 
gig vom Typ der vorangegangenen Anweisung wird in Zeile 
16180 nach verschiedenen Programmstücken verzweigt. 

Diese Zeilen befinden sich insgesamt im Bereich 16230 bis 
16440. Hier wird abhängig vom Typ der Anweisung und vom 
Mode der Anweisung die Variable UT besetzt. In den Zeilen 
16450 bis 16500 wird schließlich das Undefinierte Symbol 
in die Tabelle der Undefinierten Symbole eingetragen, die 
Variable U$ auf ' R ' als Merker gesetzt, und die Variable U 
mit einem Default-Wert, abhängig vom Typ des Undefinierten 
Symbols, besetzt. 


1 

Einzelausdruck auswerten 

i 

16000 - 16500 ! 

! 

j j 

! Variablen: ! 

j ! 


Name 

! ^yp 

! Bereich 

! Bedeutung ! 


AD 

! G 

! 0...65535 

! aktuelle Adresse ! 


BB 

! R 

! 0...255 

! Wert von Binär-Zahl ! 


BB$ 

1 □ 

! Zeichenreihe 

! Binär-Zahl ! 


ER 

! P/R 

! 0 . . . E9 

! Fehlernummer ! 


H 

! K 

! 0...255 

! Wert v. 2-stell. Hex-Z! 


H$ 

! P 

! 2 Zeichen 

! 2-stellige Hex-Zahl ! 


HH 

! R 

! 0...65535 

! Wert v. 4-stell. Hex-Z! 


HH$> 

1 O 

! 4 Zeichen 

! 4-stellige Hex-Zah 1 ! 


KM 

! E 

! 0 ... 5 

! Typ des Befehls ! 


MO 

| C 

! -1...10 

! Adressierungsmodus ! 


T$> 

! E 

! Zeichenreihe 

! Einzelterm ! 


rp 

! R 

! 0...300 

! Nummer des Symbols ! 


TN$ 

| p 

! Zeichenreihe 

! Gesuchtes Symbol ! 


TV 

! R 

! 0. . .65535 

! Wert des Symbols ! 


U$ 

! A 

! ' ' oder ’R' 

! ' R‘ bei undef. Symbol ! 


UA 

! P 

! 0...65535 

! Adresse, bei der un- ! 
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def. Symbol auftrat 
Name des und. Symbols 
Typ des undef. Symbols 
Wert des Einzelterms 

! Bedeutung 

i 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


! 16010! 100 ! nachfolgende Blanks eliminieren 

! 16020! 150 ! führende Blanks eliminieren 

! 16060! 350 ! Wert von 2-stell. Hex-Zahl bestimmen 

! 16070! 400 ! Wert von 4-stell. Hex-Zahl bestimmen 

! 16080! 23000 ! Wert von 8-stell. Binärzahl bestimmen 

! 16100! 17000 ! Fehler registrieren 
! 16140! 500 ! Symbol in Tabelle suchen 

! 16200! 17000 ! Fehler' registrieren 
! 16260! 17000 ! Fehler registrieren 
! 16340! 17000 ! Fehler registrieren 

! 16450! 19000 ! Undefiniertes Symbol in Tabelle eintr. 


Verzweigungen 

nach außen : 


in Ze ! nach 

i_ 

! Bedingung 

! Bemerkung 


! 16030 ! RETURN! T$ = 1 $’ ! Term = '$' ! 
! 16060 ! RETURN! LEN(T$)=2 ! Term = 2-ste 11. Hex-Z! 
! 16070 ! RETURN! LEN(T$)=4 ! Term=4-ste 11. Hex-Z! 

! 16080 ! RETURN! I_EN(T$)=8 ! Term = 8-ste 11. Bin-Z! 
! 16110 ! RETURN! ... ! Falsche Länge $Term! 
! 16120 ! RETURN! T$ beginnt m. Ziff! Term aus Ziffern ! 
! 16500 ! RETURN! ! normales Ende ! 
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5.3.7 Weitere Unterprogramme 


Fehler registrieren 


17010 EN=EN+1 
17020 E8EB +1 

17030 IFEB>10THEHEB=10:ER=1S 
17040 EBCEB>=ER 
17050 RETURN 


ln diesem kurzen Unterprogramm wird ein Fehler im Quell¬ 
text, der ari verschiedenen Stellen des Assembler-Programms 
entdeckt werden kann, registriert. Die Fehler werden spä¬ 
ter gesammelt unter die Zeile des Quelltextes geschrieben, 
in der die Fehler aufgetaucht sind. 

Zunächst werden die beiden Variablen EN (für die Anzahl 
der Fehler im gesamten Programm) und EB (für die Anzahl 
der Fehler in dieser Quellzeile) jeweils um eins erhöht. 
Wenn die Anzahl der Fehler in einer Zeile größer als zehn 
ist, wird anstatt des eigentlichen Fehlers die Meldung 'zu 
viele Fehler' gespeichert. Die Speicherung erfolgt in dem 
Feld EB(). 


Neues Symbol in Tabelle eintragen 


18 0i 10i Ü0SUB3 0i 0t 

18020 I FTFTHEHER=: 11 :GOSUB17000 : RETURN 

18030 TA=TA+1 

18040 TVf t Tfl =TVf 

18050 TV<TR>=TV 

1 8060 7N ft TA> =TNT 

18070 RETURN 


Dieses Unterprogramm dient zum Einträgen neu auftauchender 
Symbole oder Labels (Marken). Ist das Symbol bereits in 
der Tabelle vorhanden, was durch den Aufruf des Unterpro¬ 
grammes ab Zeile 500 festgestellt wird, so wird eine Feh¬ 
lermeldung gespeichert und das Unterprogramm verlassen. 
Ansonsten wird die Variable TA um eins erhöht, die angibt 
wieviele Symbole in der Tabelle gespeichert sind, und in 
den Feldern TY$(), TV(), und TN$() werden der Typ, der 
Wert und der Name des Symbols gespeichert. 
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Wert in Tabelle der Undefinierten Symbole eintragen 


19010 IJ--IJ+1 
19020 IJTK < IJ=IJT 
1 9 O 3 0 IJ Fl <; IJ .j = IJ Fl 
19040 UN*CU;'-UH* 
19050 RETURN 


Wird in einem Assembler-Programm ein Symbol angesprochen, 
das zu diesem Zeitpunkt noch nicht definiert ist, so muß 
sich der Assembler die Adresse und den Typ des Symbols 
merken, damit er später, wenn das Symbol definiert ist, an 
der entsprechenden Stelle den Wert nachträglich eintragen 
kann. Dazu dient dieses kurze Unterprogramm. 

Die Variable U, die die Anzahl der Undefinierten Symbole 
angibt, wird dazu um eins erhöht. Das Feld UT%() beinhal¬ 
tet den Typ der Undefinierten Symbole, das Feld UA( ) die 
Adresse und das Feld UN$() den Namen der Undefinierten 
Symbole. 


Symbol-Tabelle speichern und drucken 


20010 PRINT#4 

20020 PR I NT#4" SYMBOLE : " 

20030 PRINT#4"NFlME TYP WERT" 

20Ü35 PR I NT#4.. "--- 

20040 0P E N 5.. 8,5" @ : 11 + F * + " .. SS T1S.. W " 
20050 GOSUB25008 


20060 IF DSTHENPRIN TDS* : ST OP 
2 0 @ 7' 0 IF T R=0 T H E N 2 015 0 
28080 FÜRI=1TOTR 

20090 PR I NT#5 ,TV* C I > " ; TN* < I > " , " ; TV < I > 

20100 PR I NT#4 . LEFT* C TN* < I i + SP*.. 10 >LEFT* < TV* < I > + SP*.. 6 > : 
20110 HH=TV<Iz 
20120 00SIJ B 2 5 0 
20130 F'R I NT#4 , HH* 

20140 NENTI 
20150 CLOSE5 
20.160 PR INT #4 
20170 RETURN 


Wenn das Quellprogramm Fertig assembliert ist, so ist auch 
die Symboltabelle komplett. Dieses kurze Unterprogramm 
gibt nun die gesamte Symboltabelle auf dem Drucker bzw. 
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auf dem Bildschirm aus und speichert sie zusätzlich in 
einer sequentiellen Datei auf Floppy. 

In Zeile 20040 wird dazu die Datei #5 auf der Floppy mit 
dem Dateinamen F$+".SYM" zum Schreiben eröffnet. In einer 
Schleife (Zeilen 20080 bis 20140) werden alle Symbole 
nacheinander sowohl auf Floppy als auch auf Drucker ausge¬ 
geben. Auf Floppy werden die Symbolattribute Typ, Name und 
Wert durch Komma getrennt abgespeichert, auf den Drucker 
wird erst der Name, dann der Typ, und schließlich der Wert 
in hexadezimaler Form ausgegeben. Nach Beendigung der 
Schleife wird die Floppydatei geschlossen und das Unter¬ 
programm verlassen. 


Manuelle Eingabe von Symbolwerten 


2101 8 

F'P'T I TT TUT. 




••2 1 U2Ü 

I HF'UTTT 




21 030 

ER::-0 




21043 

GOSUB160 t 

10 



2 1 850 

1FERTI IEI L 

: i. 00 Gi 


21660 

I FUT:r 1 Ti ll 

:ht 

V*="COMB" 

J s 1 ■: = 

21 070 

I FUT-2THF.MT 


: 6 I ::::: 

2108Ü 

I FUT=30RI. 

17 = 

4 TUEN T Y$ = 

1 HOE 

21090 

IFUT=50Fl 

i 1 

S TH EH T VT-- 

1 RÜR 

21 1 00 

I FUT~70RI. 

IT= 

81 1 IE 1 I I W 

' L.FlB 

21 1 10 

IF'W>=256-' 

•SI 

THE 1121000 


2 1 120 

TV=:::U 




2 1 130 

GOSUB18000 




21140 RETURN 


Wenn der Assembler beim nachträglichen Einsetzen der vor¬ 
her Undefinierten Symbole feststellt, daß ein bestimmtes 
Symbol immer noch nicht definiert ist, müßte eigentlich 
eine Fehlermeldung 'Symbol nicht definiert' ausgegeben 
werden. In dem vorliegenden Assembler wurde jedoch eine 
andere Möglichkeit gewählt. Ein Symbol das nicht definiert 
wurde, wird am Bildschirm erfragt. Dadurch erspart man 
sich den erneuten Lauf des Assemblers durch das gesamte 
Programm. 

Zur Feststellung des Wertes wird vom Bildschirm die Zei¬ 
chenreihe T$ eingelesen und sodann dem IJn terprogramm 16000 
übergeben, das den Wert eines Einzelausdruckes bestimmt. 
Dadurch kann die Eingabe auch hexadezimal oder binär er¬ 
folgen. War die Eingabe mit Fehlern behaftet, so wird 
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nochmal nach dem Symbol gefragt. Der Typ des neuen Symbols 
(TY$) richtet sich nach dem Typ des Undefinierten Symbols 
(UT). In Zeile 21130 wird schließlich das neue Symbol in 
die Symboltabelle eingetragen und das Unterprogramm ver¬ 
lassen. 


Eine Zeile einiesen 


£26:10 i ftv= i the:m:i NF-UT, r % j :>.•r rztuzi i+ i urütoszi 10 

2:2020 GILT #2I I:!. $ . I-.2 F- : REH PO 1I II I R ULI-I RL L El-I i 
22030 11 RI " "RNt.iR;£T:.:" " I I IQ11 64 :RE- TUR! I 
32040 GET#2.. fl 1 * . R2T : RE.il ZE 1.1. EHNUMMER LESEN 
2205© ZN -0 

22O60 I f fl I. *> " " I UENZN - HSC R1. $ • 

2£07 0 .[ F R2*> " •' T HENZN-ZN+2564:RSC C fl2 $ • 

22030 T 4 " 

22O90 GE T #£ , El f 
2 :l. 010 1 ER* = " " THEN22 130 
2 21 :l 0 T *=T * + B !< * <: R 3 C f R I > > 

32120 ISO 1022090 

22 130 2M*=E I GUT* >■. " " + STR* C ZN> , 5 > 

22140 RETURN 


Dieses Unterprogramm liest eine Zeile der Quelldatei in 
die Variable T$ ein. 

Es wird unterschieden, ob die Eingabedatei eine sequen¬ 
tielle Datei ist, die eventuell mit einem Texteditor er¬ 
stellt worden ist, oder eine Programmdatei, die mit dem 
normalen Editor erstellt worden ist. Diese Unterscheidung 
wird in der Variablen TY festgehalten. Bei TY=1 ist die 
Eingabedatei eine sequentielle Datei, und das Einlesen ist 
durch einen INPUT-Befehl zu realisieren. In der Variablen 
IS wird der Status der Eingabedatei festgehalten. IS=64 
zeigt das Ende der Quelldatei an. 

Im Fall der sequentiellen Eingabedatei sind ja keine Zei¬ 
lennummern im Quelltext vorhanden, so daß die Zeilen fort¬ 
laufend durchnumeriert werden. Wenn die Eingabedatei eine 
Programmdatei ist, ist das Einlesen einer Zeile etwas kom¬ 
plizierter; zuerst müssen nämlich die ersten zwei Byte 
einer Zeile überlesen werden, die normalerweise den Zeiger 
auf die nächste Programmzeile darstellen. Sind diese bei¬ 
den Zeiger jeweils '0', was sich dadurch bemerkbar macht, 
daß die beiden eingelesenen Zeichenreihen (Al$, A2$) 
'leer' sind, so wird die Variable IS ebenfalls auf 64 ge¬ 
setzt, um das Ende des Programms anzuzeigen und anschlies- 
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send das Unterprogramm verlassen. 

Ist das Ende der Datei noch nicht erreicht, werden noch 
einmal zwei Byte von der Quelldatei eingelesen, die das 
niederwertige und höherwertige Byte der Zeilennummer dar¬ 
stellen. Diese Bytes werden in den Zeilen 22050 bis 22070 
in die Variable ZN umgewandelt. Im Folgenden werden nun 
immer wieder einzelne Zeichen (A$) eingelesen, bis eine 
leere Zeichenreihe auftritt. Die Zeichen müssen aber noch 
dekodiert werden, da ein im Quelltext vorhandener Basic- 
Befehl als SonderzeLehen abgespeichert wird und deshalb 
hier durch den gesamten Text des Befehls ersetzt werden 
muß. 

Nachdem in Zeile 20130 die Variable ZN$ mit einer fünf¬ 
stelligen Zeichenreihe, gebildet aus der Zeilennummer, be¬ 
setzt wurde, wird das Unterprogramm verlassen. 


Bestimmung des Wertes einer Binärzahl 


2301-9 BF1 =0 

.23020 FÜR I = 1TÜLEN •! BBf > 

23030 8 -Fl SC 1 l'l I DT < BIST , I :> > -43 

2 5049 IFB< 8ÜRB>1THEI4ER=15:GÜSUB17000:RETURN 
2 3050 13B - 2 +: B B+13 
2306O HEBT 
23070 RETURN 


Dieses Unterprogramm legt den Wert einer Binärzahl, die 
als Zeichenreihe Bß$ übergeben wird, in der Variablen BB 
ab. 

Die Berechnung des Wertes geschieht in einer Schleife, in¬ 
dem der Hilfsvariablen B zunächst der Wert einer einzelnen 
Stelle der Binärzahl zugeordnet wird. Die Variable BB er¬ 
hält man nun, indem man jeweils den alten Wert der Variab¬ 
len BB verdoppelt und den Wert der einzelnen Stelle hinzu¬ 
addiert. Man kann sich überlegen, daß durch dieses Verfah¬ 
ren - das den Mathematikern als Horner-Schema bekannt ist 
- am Ende der Schleife der richtige Wert der Variablen BB 
steh t. 
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Nummer der Direktive bestimmen 

24Ö10 FORD--1 TODS 
24020 R$ ; =D$<D > 

24030 G 0 S U B 3 0 
2 4 0 46 IF Fl=0 TH 0114 El X' f 
24050 IFD>Ü9THENQ=0 
2406O RETURH 


Dieses Unteprogramm durchsucht die Variable AA$ nach einer 
vorhandenen Direktive. 

Dazu wird jede mögliche Direktive mit Hilfe des Unterpro¬ 
gramms in Zeile 50 untersucht und anschließend die Nummer 
der eventuell gefundenen Direktive in der Variablen D zu¬ 
rückgegeben. 


Disk-Status-Werte DS und DS$ bestimmen 


25010 11 IPUTtt 15 DS , D1 $ . D2T . D3T 
25020 DS$■=STR f C DS ... '' + D1 $ + D2T+" . ' 1 i- D 3i 

25.030 RETURN 


Hier wird einfach der Status der Floppy aus deren Fehler¬ 
kanal in die Variablen DS und DS$ übertragen. 

Die Bezeichnung der Ausgabevariablen wurde in Anlehnung an 
Basic 4.0 der Commodore 8000er Serie gewählt. 


Weitere 

Unterprogramme 

17000 - 

25030 


F eh 1er 

registrieren 

17000 - 

17050 


Symbo 1 

in Tabelle eintragen 

18000 - 

18070 


Undef. 

Symbol in Tab. eintr. 

19000 - 

19050 


Symboltabelle ausgeben 

20000 - 

20170 
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21000 - 21140 
22000 - 22140 
23000 - 23070 
24000 - 24060 
25000 - 25030 


Variablen: 


Name 

! Typ 

! Bereich 

! Bedeutung 

EB 

! G 

! 0... 10 

! Anzahl Fehler in Zeile 

EN 

! G 

! Ganzzahlig 

! Anzahl Fehler insges. 

ER 

! E/A 

! 0...E9 

! Fehlernummer 

1A 

! G 

! 0...300 

! Anzahl Symbole in Tab. 

TF 

! R 

! 0...300 

! Nummer des Symbols 

TN$ 

! E 

! Zeichenreihe 

! Gesuchtes Symbol 

TV 

! E/A 

! 0..65535 

! Wert des Symbols 

TY$ 

! E/A 

! Zeichenreihe 

! Typ des Symbols 

U 

! G 

! 0...300 

! Anz. undef. Symbole 

UA 

! E 

! 0...65535 

! Adresse, bei der un- 



! 

! def. Symbol auftrat 

UN$ 

! E 

! Zeichenreihe 

! Name des und. Symbols 

UT 

! E 

! 0...8 

! Typ des undef. Symbols 

F# 

! G 

! Zeichenreihe 

! Dateiname 

HH 

! P 

! 0...65535 

! Wert v. 4-stell. Hex-Z 

HH$ 

! R 

! 4 Zeichen 

! 4-stellige Hex-Zahl 

I 

! H 

! 0...300 

! Laufvariable 

spS 

! G 

! ca. 50 Blanks 

! z. Auffüll. v. Strings 

r$ 

! P 

! Zeichenreihe 

! Einzelterm 

SI 

! A 

! 0.. .2 

i Anz. Byte im Operand 

w 

! A 

! 0...65535 

! Wert des Einzelterms 

AS 

! H 

! 1 Zeichen 

! Eingelesenes Zeichen 

AIS 

! H 

! 1 Zeichen 

! Eingelesenes Zeichen 

A2$ 

! H 

! 1 Zeichen 

! Eingelesenes Zeichen 

IS 

! A 

! 0...320 

! Einlese-Status 

TY 

! E 

! 1 oder 2 

! Typ des Source-File 

ZN 

! A 

! 0...65535 

! Zeilennummer 

ZNS 

! A 

! 5 Z e i c h e n 

! Zeilennr. als String 

B 

! H 

! 0... 1 

! Eine Stelle d. Bin.Z. 

BB 

! R 

! 0.. .255 

! Wert von Binär-Zahl 


Manuelle Eingabe von Symbolen 
Eine Zeile einiesen 
Wert einer Binärzahl bestimmen 
Nummer der Direktive bestimmen 
Disk-Status-Werte bestimmen 
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11 B$ 

! 

P 

! Ze ichenre ihe 

! Binär-Zahl 

A 

i 

R 

! 0.. .255 

! Position v. A$ in AA$ 

D 

i 

A 

! 0. . .09 

! Nummer der Direktive 

01 $ 

j 

H 

! Zeichenreihe 

! Disk-Status (Klartext) 

02 $ 

| 

H 

! 2 Zeichen 

! Disk-Status (Spurnr.) 

D3$ 

! 

H 

! 2 Zeichen 

! Disk-Status (Sektor) 

DS 

! 

A 

! 0...99 

! Disk-Status (Nummer) 

DS$ 

1 

A 

! Zeichenreihe 

! DS,D1$,D2$,D3$ kombin. 


Felder (Arrays): 


Name 

H 

Dirnen. ! 

Typ 

! 

Bereich 

! B e d e u t u ri g 

BK$ 

j 

0. . 

.203 ! 

G 

! 

Ze ichenreihen 

! Basic-Befehle 

D$ 

! 

1. . 

.09 ! 

E 

! 

Zeichenreihen 

! Direktiven 

EB 

! 

1. . 

.10 ! 

4 

! 

0. . .E9 

! Fe liier nummern 

TN$ 

! 

1. . 

.300 ! 

G 

! 

Zeichenreihen 

! Symbole 

TV 

! 

1. . 

.300! 

G 

! 

0 . . .65535 

! Werte d. Symbole 

TY$ 

! 

1. . 

. 300 ! 

G 

! 

4 Zeichen 

! Typen d. Symbole 

UA 

i 

j 

1. . 

. 300! 

j 

G 

! 

! 

0. . .65535 

! Adressen der 
! undef. Symbole 

UN$ 

! 

! 

1. . 

.300! 

! 

G 

! 

j 

Zeichenreihen 

! Namen der 
! undef. Symbole 

U T% 

j 

1 . . 

.300! 

G 

! 

l o 

1 co 

1 

! Typ d. und. Sym. 


Dateien : 


ff ! Name ! T ! Bemerkung 


5 ! F$+“.SYM”! S ! Symboltabelle 

15! Floppy ! ! Fehlerkanal der Floppy 


Unterprogrammaufrufe : 


in ! nach ! Zweck 


18010! 500 ! Symbol in Tabelle suchen 

20050! 25000 ! Disk-Status bestimmen 
20120! 250 ! 4-Stellige Hex-Zahl bilden 

21040! 16000 ! Einzelterm auswerten 
21130! 18000 ! Symbol in Tabelle eintragen 
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23040 ! 
24030! 

17000 

50 

Fehler registrieren 
Position von A$ in 

AA$ bestimmen 


Verzweigungen 

nach außen : 





i n Ze 

nach 

! Bedingung 



! Bemerkung 


20060 

STOP 

! DS NE 0 



! Disk-Fehler 


20170 

! KETURN! 



! Ende von Upro 

20000 

21140 

RETURN! 



! Ende von Upro 

21000 

22140 

! RETURN! 



! Ende von Upro 

22000 

23040 

RETURN! 13 LT 0 0R 13 

GT 

1 

! Ungült. Binärziffer! 

23070 

! RETURN! 



! Ende von Upro 

23000! 

24060 

RETURN! 



! Ende von Upro 

24000. 

25030 

! RETURN! 



! Ende von Upro 

25000 
-- 


5.4 Hauptprograram mit Vorspann 


Vorspann 

'56030 DIMfiC<5> 

5004Kl D EFFNV < X > = X -■ 4- S -i- 7 X > 6 4 
5 0i 0 5 0 F 0 RI = 0 T 0 5 
'30060 rerdrc< I > 

50076 hl EXT 
50O80 K9=53 

50000 DIMKf <IO> KM C K9 KÜf C K3,16 > 

5010Q FOR1=11010 

501 10 RE Fl DK f I > . KM < I • 

50120 IFRC<KM<I>>«0THEH50140 

50 L 3G FOR J=0TORC C KM < I > > -1 : RER DK Cf < I .. J > : HEX F J 
50140 HEXTI 
50150 D9=3 
50160 DIMDf(D9) 

5 01 70 F 0 RI äs 1T O D 9 
50180 REflDDf<I> 

50190 HEXT 
50200 DIMBKf C255 > 

50219 F O RI sr 0 T 012 7 

50220 BKfCI> =CHRf <I> 

50230 HEXT 

50240 F 0 RI = 12 S T0203 
50258 RE HD BKf < I 
5Ö260 HEXT 
50270 E9==20 
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50230 

DIMER* 1 :: ESO 

50298 

FÜRI=1T0E3 

50300 

RERDER*-:: I > 

5031Ö 

HEXT 

50:320 

SF'*=" 

50330 

14 E *="0123456789H B C DEF" 

50340 

RM*=CHR*<34> 

50350 

MT=300 

50360 

DI MTV* •: MT > TH* MT > T V < MT 

5037© 

TT 0-0 

50330 

l.l=:0 

50330 

S2*:= " # '. > , .. @ ! +-•*/* ■' " 

504001 

DI MR ■: LEN < SZ* > > 

50410 

DIMEB 10 > 

50420 

OP EH 15,8 15, " I " 

50430 

GOSUB25000 

50440 

IF D S T Fl E H P RIH T D S * s S T 0 P 

50450 

GOT01030 


UN*<MT> 


In Zeile 1 des Programms steht ein Sprung auf Zeile 50000, 
denn aus Rechenzeitgründen ist es sinnvoll, den Vorspann 
eines Programms zeilennummernmäßig an den Schluß zu legen. 
In diesem Vorspann werden im wesentlichen die Felder mit 
den Werten aus den DATA-Statements besetzt sowie einige 
globale Variablen mit konstanten Werten belegt. Außerdem 
wird in Zeile 50040 eine Funktion FNV(X) definiert, die 
zur Berechnung von hexadezimalen Werten nützlich ist. In 
Zeile 50420 wird das F loppylaufwerk initialisiert und an¬ 
schließend zur Zeile 1030 gesprungen, wo das eigentliche 
Hauptprogramm beginnt. 


Assemblieren 

1030 IHPUT"DATEI ” ,-i :: * 

1040 TV:.-: 1 

1050 0P E M 282 F * + " . S R C, S'' 

1060 G 0 S I.J B 2 50 3 O 
I 070 IFDS=0TI4EM1 150 

1.080 1F 0 3 < > 6 4 T H E H P RIM T D S * s C !.. Ü S E 2 :0 0 T 0 J. Ü 3 Ö 
1090 CL.ÜSE2 
1100 TV = 2 

i 110 0PEN28,2F t i-" . SRC, I-. 

1.1.20 GOSUB25000 

I 130 IF D 3 T H E N P R IH T1)8 4 :. .LÜ5E2 s 1 Ol 01.030 
I 140 GETW2 ,Fi4 ,Fit ;REM STRFTiiDRE' : 8E UFEERL E9EM 
I I 80 PRIM rif: I. NGl EU U0 FL L' ■' "f i 

1160 0PEH38,1 . " 0 : " t F *4 ".F' ,14 " 

1 1 70 GOS<.ib:25000 
1 1 80 1FD 3 I HE! I|-’F .;. Mil t :STÜP 


*r‘ 1 
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1 1 90 I NF'UT " igi. IST-GERAET < ADR. > 4IHW" ; LD 

1200 PEIHT"äLISTE ZU " 

1210 IFLD> 1THEH0PEH4 ,LD :PR IHT"GEIRflET" ;LD :GGTO1260 
1220 PR INT "DATEI "FT" . L..ST AUF GERAETENR. "LD 
1230 0PEN4 . LD , 4 ... " @ : " -i-Ff+ " .. LS'T , S , W " 

1240 G 0 SU ß25000 
1250 IFDSTHENPRI NTDSf ::STOP 

1260 PRIHT#4.. "*** COMMODORE 64 6502--ASSEMBLER m# " 

1270 PRI NT#4," VERSI OH 1.1 <16.11.83 >" 

1280 PR I NT#4 , " ASSEHPL I EREN VON "Ff " . SRC " 

1290 PRINT#4,"OBJECT-DATEI IST "Ff".OBJ» 

13G0 PRI NT#4 , "SYMBOL—TABELLE I ST " Ff " . SVM " 

1310 PRI NT #4 

[320 PRINT#4,"ZEILE ADR. OBJ * QUELL TEXT" 

1330 PRINT#4 

1340 GOSUB22Q00 

1350 TTf.-r.Tf 

1360 PR I NTZilf , AD... TTf 

1270 I FL D=3THEHPRI NT"□"; 

1 3 SO GOSUBlO0O0 
1390 HH-AD 
1400 GÖSUB250 

1410 FRINT#4,ZHf" "HHf.r" "LEFTf <Cf +" " , 7> ;Uf " "TTf 

1420 IFEBTHENFORI = 1TOEB:PRINT#4,"FEHLER: ";ERf<EB <I>>:HEXT 
1430 EB=0 

1440 IFCf=""TUEN 1510 ’ 

1450 AD-HD+1 
1460 H f=L E F T f < C f , 2 'j 
1470 GOSUB350 
1480 FRINT#3.CHRf KH> : 

1490 Cf=MI DfCCf.3> 

1500 GOTO1440 
1510 IFIS=0THEN1340 

1520 IF I S=64THEHPR I HT#4" SPATE I ENDE ERREICHT. 

1530 PRINT#4 

1540 PRI NT#4 r E .H "FEHLER. " 

1550 IFLD03THENPRI NT EN " FEHLER. " 

1560 CLOSE3 
1570 CL0SE2 

Die Zeilen 1030 bis 1570 enthalten den kompletten Ablauf 
zum Assemblieren einer Datei, ausschließlich dem Einsetzen 
der bisher Undefinierten Symbole in die Objekt-Datei, was 
ab .Zeile 2000 bewerkstelligt wird. 

In Zeile 1030 wird zunächst der Name der zu übersetzenden 
Datei in die Variable F$ vom Bildschirm eingelesen. Der 
Dateiname wird hier ohne den Zusatz '.SRC' angegeben. Die 
Quelldatei kann entweder eine sequentielle Datei oder eine 
Programmdatei sein. Diese Datei benennt man, um Verwechs¬ 
lungen zu vermeiden, am besten mit dem Anhang '.SRC' für 
Source-Code. Die Art der Quelldatei wird vom Programm sei- 
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hs t s tänd i ij erkannt urul in der Variablen 1Y fcstgeha 1 Len. 
Oahoi bedeutet 1Y = 1, daß dir? L i nga betla te i sequentiell ist., 
IY=2 bedeutet, daß die 12 i ngabcdal.e i eine; l’roqrammda t.e i 
ist,. Oie Unterscheidung geschieht dadurch, daß zunächst, 
versucht wird, die F i ngabedate i als sequentielle Datei zu 
öffnen. War die geöffnete Datei aber eint; I’ rogrammda tu i , 
so erkennt das F loppy-Bc t.r i ebs sys t.em dies und gibt den 
Fehlercode 64 zurück. Daraufhin versucht, das l’rogramrn die 
Datei als Programmdate i zu öffnen. 

Eine Programmdate i enthält in den ersten beiden liyt.es die 
Startadresse, wohin es geladen werden soll. Diese Start¬ 
adresse ist jedoch hier unerheblich und muß deshalb über¬ 
lesen werden, was in Zeile 1.140 geschieht, wenn die Einga- 
bedatei eine Programmdatei ist. 

In Zeile 1160 wird als File //3 eine Zwischendatei eröff¬ 
net, mit dem Namen der Datei und angellängten vier Punkten. 
In diese Datei wird die vorläufige Version der Objektdatei 
geschrieben. In Zeile 1100 kann das Ausgabegerät angewählt 
werden. Möglich sind dabei die Eingaben 4 für Drucker', 3 
für Bildschirm und 8 für Floppy. Wenn als Ausgabegerat die 
Floppy spezifiert wurde, wird eine sequentielle Datei 
angelegt, auf der genau das abgespeichert wird, was sonst, 
auf dem Drucker erscheint. 

Die Zeilen 1260 bis 1330 bilden die Kopfze i len des Lis- 
tings. Anschließend werden in einer Schleife jeweils ein¬ 
zeln die Zeilen aus dem Source-Text eingelesen und in der 
Variablen TT$ gespeichert. Diese Zeilen werden dann so¬ 
gleich assembliert und rlas Ergebnis auf der Listdatei aus¬ 
gegeben. Dann werden noch die Fehlermeldungen ausgegeben, 
falls welche vorhanden waren. Die Anzahl der Fehlermel¬ 
dungen pro Zeile wird sogleich auf 0 zurückgesetzt. In der 
Variablen C$ ist nach dem Assemblieren eine hexadezimale 
Befehlsfolge gespeichert. Diese wird dann als Gruppe von 
zwei Zeichen, die jeweils ein Byte bilden, in die vor¬ 
läufige Objekt-Datei gechrieben, bis die Variable C$ die 
Länge 0 hat. In Zeile 1510 wird zum Einlesen der nächste 
Zeile gesprungen, wenn IS gleich 0 ist, d.h. wenn das Ende 
der Datei nocli nicht erreicht ist. 

War die Datei zu Ende, so wird eine entsprechende Meldung 
ausgegeben, sowie die Anzahl der Fehler auf der Listdatei 
und am Bildschirm ausgegeben und sowohl die Eingabedatei 
als auch die vorläufige Objektdatei geschlossen. Damit ist 
das Programmstück 'Assemblieren' beendet. 
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Werte nachträglich einsetzen 


. « fl PR1 H I « 1 5 • s - "4 F t i " . i. 

. 001 I I ll. I ' I 10:4 .01; II i 

70 OG i i ,' r-: l i Hi I l f NTITS f : : T0 P 
:i ;i-i1 1 !.! !j i i ii ; ■; i r?i i 

LOGO ■ I • I ! : fl :l % "I- ; " i I- if i " .. i 'S I r" i4 |: 4 " .. .. . .. " 

2 .7,0 GO' UB25Ü00 
0 70 n (:3 n IENPPJIITD3J ;S I OP 
...fl fl GOT0244 Q 

, 09 V OPE I!3 . & .. 1 ,F 4 i " . OBJ,.PM" 

J;■ j G0 Gnsij b 25i.iö0 

■ x >o i f i:is i hei iprin i ds ■$ :s i op 

2 120 OP EN 2,3.2.. Ff+ , P , R" 

2: 9 O G 0 3 UB2 5 O 0 0 

214 8 11 - D S III! N P R111T 0 S1- : 3 T O P 

2150 ÖD -SN— 3 sREI'1 STÖR T'RDRESSE HEBE RLE SEN 

£160 Ul = l 

2170 l :: iD=RD i-1 

2130 GOSÜB10 

2 1 SO 11 : IJI4I.J 1 :> >flDORU 1 >IJTHENPP I NT #3 , ÜFIR* C I I > ; :GOT 02390 
2200 VT ur:;' I.J l ;i 

2220 IFUT--1 OF;UT==30RIJT=4ORUT=STHENS I = 1 

22 30 IF V T=2 0 R U1"=5 OR U T=6 0 P U T=7 T H E N S 1=2 
2248 I FS I =2THEN 11 ■=, I 1 :GOSÜB10 :: 12= I I 
2258 T F' J T =i O T H E11 '3 T 0 P 

2.160 'Ulf.:.' II IT ■ I I I ' 

22 70 00: .iJG'f.i 0 
2 75 L l :: i"F-0T!-IENOÜS1.1B210G0 
22S0 1FÜT:=8THFN2350 

. ,'90 IF SI1 I HEI IPRIHTflV, ' HF F 1 I - 123 FT V> ; SGOTO2330 
2300 TII 1 + 256412- 32768—123+ TV 
2:3 I O INT<fl/256> 

2320 PR IN r#3 ■ CHR* < rt~256*H > CHR* < H > : 

2330 FlÜ-lTD-i 1 
23 40 GOT02380 

2350 Fl == 11 ■ i-256* < 11 > 12 7 3 + T V - < FCi +1 > 

2360 IF ft<0 T HENft=ft+£56 
2370 FRINT#3., GURT<ft ■; 

2380 01-Ul+1 

2390 1FIS-07 HEFI2170 

2400 CLOSE2 

2410 PR I NT# 15" Ss" +F$+ "." 

2 4 £ 0 G O S U B250@ 0 

2430 I FDS:> 1THENPRI NT DSU : STOP 

2440 F’RINT#4 . "FERTIG FlSSENBL 1 ERT„ " 

2450 1 FL.D03THENPR I NT " FERTIG ÖS SEN BL IERT.. " 

2460 GOSUB20000 
24 70 CLOSE. 15 
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2480 0LÜ8E4 
,?48Ci HMD 

In diesem Programmstück von Zeile 2010 bis 2490 wird aus 
der vorläufigen Objektdatei die endgültige Fassung gebil¬ 
det, indem alle bisher Undefinierten Symbole jeweils an 
die richtige Stelle eingetragen werden. 

Dazu wird zunächst eine eventuell schon vorhandene Version 
der Objektdatei gelöscht. War kein Symbol Undefiniert 
(U=0) wird einfach die vorläufige Objektdatei zur endgül¬ 
tigen Objektdatei umbenannt, was in Zeile 2050 geschieht. 
Ansonsten wird eine endgültige Objektdatei als File #3 er¬ 
öffnet und die bisherige Objektdatei als File #2. 

Es wird jeweils ein Zeichen aus File #2 gelesen und wieder 
in File #3 weggeschrieben, solange bis die in der Variab¬ 
len AD mitgezählte Adresse gleich der Adresse des ersten 
Undefinierten Symbols ist. Dann wird anstatt dem Wert in 
der vorläufigen Quelldatei der richtige Wert in die end¬ 
gültige Objektdatei geschrieben. Die Berechnung des end¬ 
gültigen Wertes ist jedoch nicht ganz einfach. Insbeson¬ 
dere muß festgestellt werden, ob ein oder zwei Byte kor¬ 
rigiert werden müssen. Die Anzahl der zu korrigierenden 
Bytes wird in der Variablen SI festgehalten. Wenn der Typ 
(UT) de9 Undefinierten Symbols gleich 1, 3, 4 oder 8 ist, 
muß ein Byte ersetzt werden, ansonsten zwei Byte. 

In den Zeilen 2260 bis Zeilen 2275 wird der Wert des Unde¬ 
finierten Symbols festgestellt. Wenn der Name nicht in der 
Tabelle enthalten ist (TF=0) so wird der Wert mit Hilfe 
des Unterprogramm ab Zeile 21000 vom Bildschirm eingele¬ 
sen. 

Die Berechnung der einzusetzenden Werte muß unterschied¬ 
lich erfolgen, je nachdem, ob das Undefinierte Symbol aus 
einem relativen Sprung resultiert (Ul=8), oder ob ein oder 
zwei Byte korrigiert werden müssen. 

Die Behandlung der relativen Sprünge geschieht in den Zei¬ 
len 2350 bis 2370, ein Byte wird in Zeile 2290 korrigiert 
und zwei Bytes in den Zeilen 2300 bis 2330. 

Bei Zeile 2380 vereinigen sich die drei Zweige des Pro¬ 
gramms wieder. Dort wird die Variable Ul, die auf das 
nächste zu ersetzende Symbol zeigt, um eins erhöht. Wenn 
die Datei noch nicht zu Ende ist ( IS=0), wird zur Zeile 
2170 gesprungen, wo das nächste Byte der vorläufigen Ob¬ 
jektdatei gelesen wird. Wurde das Ende der Datei erreicht, 
so wird die Zwischendatei gelöscht und die Meldung 'Assein- 
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blierung fertig' ausgegeben. Danach wird jedoch noch die 
Symboltabelle auf Drucker und auf Floppy mit Hilfe des Un¬ 
terprogramms auf Zeile 20000 ausgegeben. 

Der Assembler hat also im Endeffekt zwei Dateien neu ange¬ 
legt. Zum einen die endgültige Objektdatei und zum anderen 
eine sequentielle Datei, die die Symbole enthält. Diese 
Symboldatei kann mit erweiterten Assembler-Versionen zum 
Verbinden von mehreren Programmen benützt werden. 

Die Quelldatei wurde nur gelesen und deshalb nicht ver¬ 
ändert. 


Hauptprogramm mit Vorspann 


Sprung auf Zeile 50000 

Vorspann 

Assemb1ieren 

Werte nachträglich einsetzen 


Variablen: 


Name 

■ Typ 

! Bereich ! 

Bedeutung 

A 

! H 

! -65535...65535 ! 

Hi lfsvariable 

A$ 

! H 

! 1 Zeichen ! 

Eingelesenes Zeichen 

AD 

! G 

! 0...65535 ! 

Aktuelle Obj.-Adresse 

AN$ 

! G 

! 1 Zeichen 1 

Anführungszeichen 

c$ 

! R 

! 0..6 Ze ichen ! 

Assemblierter Code 

D9 

! G 

! Konstante 3 ! 

Anz. Direktiven 

DS 

! R 

! 0..99 ! 

Disk-Status (Nummer) 

DS$ 

! R 

! Zeichenreihe ! 

DS,Dl$,D2$,D3$ kombin. 

E 9 

! G 

! Konstante 20 ! 

Anz. Fehlermeldungen 

EB 

! R 

! 0...10 ! 

Anzahl Fehler in Zeile 

EN 

! G 

! Ganzzahlig ! 

Anzahl Fehler insges. 

F$ 

! G 

! Zeichenreihe ! 

Dateiname 

H 

! R/H 

! 0...65535 ! 

Wert v. 2-stell. Hex-Z 

H$ 

! P 

! 2 Zeichen ! 

2-stellige Hex-Zahl 

HE$ 

! G 

! 01234567890abcedf! 

Hexadezimal-Ziffern 

HH 

! P 

! 0...65535 ! 

Wert v. 4-stell. Hex-Z 

HH$ 

! R 

! 4 Zeichen ! 

4-stellige Hex-Zahl 

I 

! H 

! 0...300 ! 

Lauf variable 


1 

50000 - 50450 
1030 - 1570 

2000 - 2490 
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11 

i 

H 

! 0...255 

! 1. Eingelesener Code 

12 

{ 

H 

! 0...255 

! 2. Eingelesener Code 

II 

| 

R 

! 0...255 

! Eingelesener Code 

IS 

! 

R 

! 0...320 

! Einlese-Status 

3 

! 

H 

! 0...10 

! taufvariable 

K9 

| 

G 

! Konstante 58 

! Anz. Mnemonics 

LD 

! 

G 

! 0..15 

! Ausgäbe-Geräte-Adresse 

MT 

! 

G 

! Konstante 300 

! Max. Tabellengröße 

SA 

i 

H 

! 0...65535 

! absolute Startadresse 

SI 

j 

H 

! 0 . . .2 

! An/. Byte im Operand 

SP$ 

! 

G 

! ca. 50 Blanks 

! z. Auffüll. v. Strings 

sz$ 

! 

G 

! ■#(),.%!+-*/$•' 

! Alle Sonderzeichen 

T$ 

j 

R/P 

! Zeichenreihe 

! Eingelesene Zeile 

TT$ 

i 

H 

! Zeichenreihe 

! Kopie von T$ 

TA 

! 

G 

! 0...300 

! Anzahl Symbole in Tab. 

TF 

! 

R 

! 0...300 

! Nummer des Symbols 

TN$ 

! 

E 

! Zeichenreihe 

! Gesuchtes Symbol 

TV 

! 

E/A 

! 0..65535 

! Wert des Symbols 

TY 

i 

P 

! 1 oder 2 

! Typ der Quell-Datei 

TY$ 

! 

E/A 

! Zeichenreihe 

! Typ des Symbols 

U 

! 

G 

! 0...300 

! Anz. undef. Symbole 

Ul 

! 

{ 

H 

! 0...300 

! zeigt auf nächstes 
! Undefinierte Symbol 

UN$ 

i 

E 

! Zeichenreihe 

! Name des und. Symbols 

UT 

1 

E 

! 0. . .8 

1 Typ des undef. Symbols 

W 

! 

A 

! 0...65535 

! Wert des Einzelterms 

ZN$ 

j 

R 

! 5 Zeichen 

! Zeilennr. als String 


Felder 

(Arrays) : 




Name ! 

Dirnen. ! 

Typ 

Bereich 

! Bedeutung 

A ! 

LEN(SZ$)! 

! 

G 

0...255 

! Positionen der 
! Sonderzeichen 

AC ! 

5 ! 

! 

H 

0 ... 10 

! Anzahl Modes je 
! Befehlstyp 

BK$ ! 

203 ! 

G 

Zeichenreihen 

! Basic-Befeh 1e 

D$ ! 

D9 ! 

G 

! Zeichenreihen 

! Directiven 

EB ! 

10 ! 

G 

0 . . . E9 

! Fehlernummern 

ER$ ! 

E9 ! 

G 

! Zeichenreihen 

! Fehlermeldungen 

K$ ! 

K9 ! 

G 

je 3 Zeichen 

! Mnemonics 

KM ! 

K9 ! 

G 

! 0. . .5 

! Befehlstyp 

KC$ ! 

K9,10 ! 

G 

2 Hex-Ziffern 

! Maschinencodes 

TN$ ! 

300 ! 

G 

! Zeichenreihen 

! Symbole 

TV ! 

300 ! 

G 

0...65535 

! Werte d. Symbole 

TY$ ! 

300 ! 

G 

4 Zeichen 

! Typen d. Symbole 

UA ! 

300 ! 

G 

! 0 . ..65535 

! Adressen der 
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1 

! j 

! undef. Symbole 

UN$ ! 300 

! G ! Zeichenreihen 

! Namen der 

J 

! j 

! undef. Symbole 

UT% ! 300 

! G ! 0.. .8 

! Typ d. und. Sym. 

Dateien : 

ft ! Name 

! T ! Bemerkung 



2 ! F$+".SRC"!s/p! Quelldatei 

3 ! F$+"....“! p ! Vorläufige Objektdatei 

4 ! F$+".LST"! s ! Listdatei 

3 ! F$+".OBJ"! p ! Endgültige Objektdatei 

15! Floppy ! ! Kommado-/Feh1erkana 1 der Floppy 


Unterprogrammaufrufe : 


i n ! 

nach 

! 

Zwec k 


1060 ! 

25000 

! 

Disk-Status abfragen 


1120 ! 

25000 

i 

Disk-Status abfragen 


1240 ! 

2 5000 

j 

Disk-Status abfragen 


1340 ! 

22000 

! 

Eine Zeile einiesen 


1380 ! 

10000 

! 

Eine Zeile assemblieren 


1400 ! 

250 

! 

4-stellige Hex-Zahl bilden 


1470 ! 

350 

! 

Wert von 2-stelliger Hex-Zahl 

bestimmen 

2020 ! 

25000 

J 

Disk-Status abfragen 


2060 ! 

25000 

I 

Disk-Status abfragen 


2100 ! 

25000 

1 

Disk-Status abfragen 


2130 ! 

25000 

j 

Disk-Status abfragen 


2180 ! 

10 

| 

Ein Zeichen aus Zwischendatei 

e i n lesen 

2240 ! 

10 

! 

Ein Zeichen aus Zwischendatei 

einiesen 

2270 ! 

500 

J 

Symbol in Tabelle suchen 


2275 ! 

21000 

i 

Symbol manuell erfassen 


2420 ! 

25000 

j 

Disk-Status abfragen 


2460 ! 

20000 

J 

Symboltabelle ausgeben 


50430 ! 

25000 

j 

Disk-Status abfragen 



Verzweigungen nach außen : 


in Ze ! nach ! Bedingung 


1180 ! STOP ! DS NE 0 


! Bemerkung 
! Disk-Fehler 
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1250 

! STOP 

! DS 

NE 

0 

! Disk-Fehler 

2030 

! STOP 

! DS 

GT 

1 

! Disk-Fehler 

2110 

! STOP 

! DS 

NE 

0 

! Disk-Fehler 

2140 

! STOP 

! DS 

NE 

0 

! Disk-Fehler 

2250 

! STOP 
| 

! UT 

j 

= 0 

! darf eigentlich 
! nicht auftauchen 

2430 

! STOP 

! DS 

GT 

1 

! Disk-Fehler 

2490 

! END 

j 



! Normales Ende 


5.5 Bedienungsanleitung 


In diesem Kapitel wird beschrieben, wie der Assembler 
grundsätzlich handzuhaben ist. 

Die Erstellung der Quell-Datei kann mit einem Texteditor 
oder einfacher mit dem normalen Basic-Editor vorgenommen 
werden. Anschließend speichert man das editierte Programm 
mit dem Befehl SAVE" 1 Name'.SRC”,8 auf Diskette ab. Das 
Wort 'Name' kann dabei durch einen selbst gewählten Datei¬ 
namen ersetzt werden. 

Anschliessend wird der Assembler mit der Befehlsfolge 

LOAD "ASS64",8 
RUN 

gestartet. Der Assembler fragt dann nach dem Namen der 
Quell-Datei (Source). Hier ist also der Name der Datei 
(ohne den Zusatz '.SRC') einzugeben. 

Für das Ausgabegerät für die Liste hat man folgende Ein- 
gabemögl ichkeiten: 

3 - Ausgabe auf Bildschirm 

4 - Ausgabe auf Drucker 

8 - Ausgabe auf eine sequentielle Datei 'Name'.LST" 

Das Programm wird nun assembliert. Vom Assembler erkannte 
Fehler im Quelltext werden auf der Liste mitprotoko11 iert. 

Wurde ein Symbol oder ein Label nicht definiert, so wird 
keine Fehlermeldung ausgegeben, sondern der Wert des Sym¬ 
bols am Bildschirm erfragt. 

Nachdem fertig assembliert wurde, wird die Symboltabelle 
noch an die Liste angefügt und auf floppy gespe ichert, wo 
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man sie unter dem Namen "'Name'.SYM" lesen kann. 

Das erzeugte Objekt-Programm kann mit dem Befehl 
LOAD ”'Name 1 .OBJ",8,1 

an die im Quell-Code angegebene Startadresse geladen wer¬ 
den. Die Angabe der als Sekundäradresse ist notwendig, 

weil sonst die gespeicherte Startadresse von der Basic- 
Laderoutine ignoriert wird. 

Will man die Objekt-Datei von einem Basic-Programm aus 
laden, so geschieht dies in folgender Weise: 

10 IF L=0 THEN L = 1 : LOAD ” 'Name'.OBJ",8,1 
20 REM PROßKAMMBEGINN 

Nach der Ausführung eines LOAD-Befehls startet das Pro¬ 
gramm immer wieder in der ersten Zeile. Man muß sich also 
einen Merker setzen, daß der LOAD-Befehl ausgeführt wurde. 




BASIC-Erweiterungen und 
Änderungen 
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6. Basic-Erwe iterungen und Änderungen 


Das Folgende Kapitel soll da/u dienen, Sic in die Lage zu 
versetzen, Ba s ic-Erwe iterungen selbstständig durchzufüh- 
ren, bzw. Ihr Basic den eigenen Wünschen an/upassen. 

Hilfsmittel dazu ist natürlich der in Kapitel 5 vorgestel¬ 
lte Assembler, da Basic-Erweiterungen natürlich in Maschi¬ 
nensprache formuliert sein müssen. Im ersten feil wollen 
wir die generelle Vorgehenswoise beschreiben, wie eigene 
Befehle in die vorhandene Befehls-Tabelle eingebaut werden 
können. Im zweiten Teil wollen wir die in Kapitel 4.2 be¬ 
schriebenen Grafikerweiterungen mit Hilfe des in Kapitel 5 
beschriebenen Assemblers um einiges versclme1 lern. 

Als letztes werden wir noch einen allgemeinen Basic-Befehl 
(PAUSE) vorstellen, sowie eine Änderung des bestehenden 
Basic und natürlich die Routine zum Abschalten der ßasic- 
E rweiterung. 


6.1 Vorgehenweise bei Basic-Erweiterungen 


Prinzipiell gibt es dazu zwei Vorgehensweisen. Entweder 
man kopiert den kompletten Basic-Interpreter vom RDM in 
das RAM und ändert dann diese Kopie nach seinen eigenen 
Wünschen ab, oder man verstellt gewisse Basic-Vektoren auf 
seine eigenen Routinen. 

Da die erste Art in Kapitel 6.4 beschrieben wird, wird 
hier im folgenden eine Übersicht über die Vektoren des 
Basic-Interpreters gegeben, die leicht verstellbar sind, 
weil sie von Hause aus im RAM stehen. 


Adresse 
de s 

Vektors 

$0300 

$0302 

$0304 

$0306 

$0308 

$030A 


normaler Wert Bemerkung 


$E38B Fehlermeldung ausgeben 

$A483 Basic-Warmstart 

$A57C Umwandlung einer Basic- 

Zeile in Interpreter-Code 
$A71A Umwandlung von Basic-Code 

in Klartext 

$A7E4 Basic-Befehl ausführen 

$AE86 numerischen Ausdruck auswerten 
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Am wichtigsten für Bas ic-Erwe iterungen ist der vorletzte 
Vektor. Man stellt ihn zweckmäßigerweise auf eine Routine, 
die überprüft, ob das eingelesene Zeichen ein Basic-Befehl 
oder ein eigener Befehl ist. 

Das Assembler-Listing für ein mögliches Programm zum De¬ 
kodieren eigener Basic-Befehle ist im folgenden wiederge¬ 
geben. 


+* + C Ol 'II •IO DO RE 64 

650 

2-ASSEMBLER *** VERSION 1.1 

ASSEMBLIEREN VON 

BAS 

ERW.SEC 

OBJECT 

-DATEI IST 

BAS 

ERW.OBJ 

SYMBOL. 

-TABELLE IST 

BAS 

ERW.. SVM 

2 E :r i e: 

ADR. OBJ 

* 

QUELLTEXT 

10 

0800 


SORG TC860 

2Ö 

C 300 


:**************************** 

30 

C800 


.-* START ADRESSE = 51200 * 

48 

0800 


; *** **** ************ ********* 

50 

CS* 00 


; 

60 

C800 


; 

70 

C8 00 


; 

1 00 

C800 


? ********************* ******* 

1 10 

0800 


; * EON ST AH TEN V ER EINBARUNGEN * 

120 

C800 


:**************************** 

1 30 

C800 


DEC0DE=-t : 030S ; ADRESSE DES VEKTORS 

131 

C800 


s DEEODI ER -ROUT II IE 

1 32 

0800 


; 

150 

C800 


BASBZ=$?fi f EHTHAELT BASIC- 

151 

C800 


?BEFEHLS-ZEIGER 

152 

0800 


“ 

500 

0800 


;**************************** 

5 10 

0800 


r* BASIC—ROUTIHEH * 

520 

0800 


; **************************** 

CT •-> C“ 

0800 


; 

530 

0800 


CHRGET=$0073;EIH BASIC-ZEICH. LESEN 

531 

0800 


- 

540 

0800 


INTERPRETER? AE .? IHTERPRETERSCHL.EIFE 

541 

0800 


: 

550 

0800 


BAS ICBEFEA7E7' r ARBEITET BAS .1C- 

551 

0800 


; BEFEHL AB 
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1 000 
1 0 1 0 
1 020 
1 030 

1 040 
1050 
1 060 
1070 
1075 
1 080 
1090 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 

1280 
1290 
1 . 500 
1510 
1520 
1.530 
153 ; 1 

1540 

1541 
2000 
2010 
2020 
2030 
2040 
2050 
2:0643 
2070 
2080 
2090 

2 1 . 00 
21 10 
2120 
2130 
2140 
2150 
2.1 60 


C800 

C300 ; + INITIALISIERUNG :+ 

C800 ;$$$+:■+: $$$$$$:+ **'+$ $$$$:+ *:+ $ *** 

C800 INIT: 

CS00 0980 R LOB ttBOSERWL 


CS 02 

SD0S03 

UH 05 

0980 

C8Ö7 

SD0903 

Ü8GR 


C30B 

60 

CS0B 


C80B 

C80B 


CS0B 

DS0B 

CS0B 

B9E4 

C80D 

8001303 

CS 10 

B9B7 


CS12 8D0903 

CS 15 

C815 60 

CB 1 6 


STB DECODE 
LDH #BÖSERWH 

STR DECODE+1 ; DECODE-VEKTOR 
r RUF NEUE BEFEHLE STELLEN 
RTS .; INITIOLISIERUNG FERTIG 

;******•********************** 
:+ ERWEITERUNG OUSSCHHLTEH * 
r $ * # ♦* W. * * *:+ * * *# * * ******* * * ** 
BUS : 

LOB 4LLE4 

STB decode: 

LDH ttTB 7 

STB Ci ECO DE +1 : DECODE—VEK TOR 

;RUF NORMALEN WERT STELLEN 
RTS :■ FERTIG 


US 1 6 
CS 16 
0816 
CS 16 
CS 1 7 
CS 1 7 
CS 18 
CS I 8 


;****.*.** ************ *•+* + * * * * * 

:* HILFSZELLEN * 

s * * * * * + +' + .+ * * * ** * * * * * ♦3' *:+* ** ** 
BEEHR; B'r'T 0 : NU HM ER DES BEFEHL. 

BKKUSICH: BVT 0 rBKKU SICHERN 

;.**.**** + * * ******* * * * + * * * * ** * * 


CS 1 

3 


;* NEUE 

e 

iS 

I 

:-BEF 

EULE 

BUSF 

. * 

CS 1 

s 


: ** 

H*** 

** 


* 

-. * ¥ * 1' 

*.+.* * 

* 1 *»? 

*** 

CS 1 

s 


BOSF 

"RW 








CS 1 

0 


BRSE 

-FM! 

=::: 

i 


P S 




CS 1 

© 


Hll 

- 

BIT 

SE 

RI 

IN *2 

•;:;i6 



CS 1 

s 


Bit t 

: ri -ii. 

= 

B 

R- 

.1 LH 

. HIL 

_F 


CS 1 

S 


r Bl 

iSf F 

IIH 

, L 

F 

iE.RE'C 

1 INET' 



CS 1 


20730»! 

..TSR 

i Hl- 

GE 

r 


BBS 1 

i.. ,:f: 

CHEI 

Hl.il._El 

CS 1 

B 

9Ö0Ö 

R BCC 

BEE 

RS 

r 

Bi 

iS IC - 

i. ODE 

NBR' 

I" 1 Fl- Ei 

CS 1 

D 

L 960 

CNF 


0 

:: 

TF 

• . 1 i 

Ul- BL 

IC HST 

BBE 

CS 1 

F 

8000 

R BCG 

BEI. 

RS 

: 

Bi 

iS i C - 

BEFEE 

U..S.C 

ODE 

CSS 

1 

C941 

i 1 I.p 

1114 

i 

; 

TE 

:s'i f 

UF Bl. 

IC HST 

BBE D 

CS2 

3 

*5*000 

R BCC 

BEE 

RS 

I: - 


: UND IS 

RZEI i 

HEN 


f 8;;; 

S 

SD 1 7 Cf 

: STR 

BIT 

US 

i >... 

H 

r BF 

KU SJ 

CHER 

N 

C'32 

R 

SE1SC£ 

r... lj ,• •. 

SIN 

BEF 

NR 


F 

1EFI IF 

r=0 
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2170 

C82D 


BEI 

: 

2100 

C82D 

R000 

LDV 

#0 

2190 

C82F 

EE16CS 

INC 

BEFNR ;BEFNR=BEFNR+1 

2200 

CS 3 2 

BD8080 R 

LDfl 

BTflB ,.X;ZEICHEN AUS BEF.TABELLE 

2210 

C835 

D000 R 

BNE 

BES ;KEIN TRENNZEICHEN <0> 

2220 

C837 

AD17CS 

LDfl 

AKKUSICH ;AKKU NIEDERHERSTELLEN 

2230 

C83fl 


BEBflSC: 

2240 

C33fl 

38 

SEC 

; CflRRV NIEDER SETZEN 

2250 

CS3B 


BEEiflS : 

2260 

C 8:3 B 

4CE7A7 

JMP 

BflSICBEF ;BASIC BEF.flUSFUEHREN 

2270 

C83E 


BES 

: 

2280 

C83E 

D17 fl 

cnp 

EiflSBZ > .. V ; VERÖL. hl. BAS IC-TEXT 

22.90 

C840 

□000 R 

BNE 

BE4 ; KEINE LIEBERE INSTIMMUNG 

2300 

C842 

CS 

INV 

;NflECHST. ZEICH. IM BASIC-TEXT 

2310 

CS 43 

ES 

I NX 

; N fl EC HST. ZEUCH. IN BEF.TflB. 

2320 

CS44 

BDS0S0 R 

LDfl 

BTflB,X "ZEICHEN AUS BEF.TAB. 

2330 

C847 

D0F5 

BNE 

BE2 ; NAECHSTES ZEUCH. PRUEFEN 

2340 

CS 4 9 

18 

CLC 


2350 

C84R 

98 

TV fl 


2360 

C84B 

S57FI 

ADC 

EiflSBZ ;BEFEHLSZEIGER UM 

2370 

C84D 

857fl 

ST fl 

BASBZ rBEFEHLSLAENGE ERHOEHEN 

2380 

CS4F 

9800 R 

BCC 

BES -KEIN UE ES ERTRAG 

2390 

CSS 1 

ES 7 Ei 

INC 

BHSBZ+1 ;UEBERTRAG 

2400 

C853 


BES 


24 10 

C853 

AD1 SCO 

LDfl 

BEFNR; BEFEHLSNUMMER HOLEN 

2420 

CSS 6 

0ft 

ASL 

fl ; VERDOPPELN 

2430 

C857 

fl a 

TAX 

;fll...S ZEIGER IN SPRUNGTflB. 

2440 

C858 

BD8080 R 

LDfl 

STAB.,. X 

2450 

C85B 

8D80130 R 

STA 

BEFflDR 

2460 

C85E 

EDS 180 R 

LDfl 

STflB+1 ,.X 

2470 

2480 

CSS 1 

C8S4 

8D8180 R 

ST fl 

BEFADR+1 ; BEFflDR=SPRUNGZIEL 

2490 

CSS 4 

20 

Ei VT 

$20 ; CODE FUER " ISR •' 

2500 

C865 

0000 

BEFflDR: NOR 0 ; SPRUNGZIEL 

2510 

C867 

4CAEA7 

JMP 

INTERPRET ; 2URUECK ZUR 

2520 

2530 

CSS fl 

CSS fl 


INTERPRETER-SCHLEI FE 

2540 

UWbH 


BE 4 

: 

2550 

CSS fl 

ES 

I NX 

;NflECHST. ZEICHEN IN BEF.TflB. 

2560 

C86B 

BD8080 R 

LDfl 

BTflB,X 

2570 

L-86E 

D0FA 

BNE 

BE4 ..-BEFEHL NICHT ZU ENDE 

2580 

CS70 

ES 

I NX 

; ■' 0 ,r IJEBERLESEN 

2590 

2600 

CS7 1 

CS 74 

4C2DC8 

..TMP 

BEI ;NflECHST. BEF. CHECKEN 
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7000 

C 874 


? 4 4 4 4 4 4 * * t 4 4 * 4 f 444: 4 4444 4:4 4 4 4 4 

30 10 

0874 


: 4 

SPRUNG'TflBFLLF 4 

?020 

i 874 


-44444444 

+44 44 4 444 4 4444 44:4 4 4 4 

"1030 

30 50 

C 87 4 

C 374 

!: OHO 

SITTE 
•4i 4- 

Bll 1 i 

BEI- :■ BEF HR = i i 

3060 

C3 76 

00C0 

MOP 

T C0 01; 

;■ 1 Xü 10 T 

Jli 31x1 

CS 78 

03 C 0 

NOR 

$L 00 f 

; GRE T N 

30S0 

CS 7 hl 

0CC0 

NDR 

IC 001. 

:• GRAUS 

3090 

C 8 7 C 

0F C 0 

NOR 

Ti WOI- 

;L[NIE 

3 1 00 

C87E 

1200 

NOR 

TCO1 2 

; REICHT 

3 :l. 1 O 

CSS 8 

15CÜ 

NOR 

TOOJT 

;BLOCK 

3120 

CSS 2 

13C0 

NOR 

f i Ol 1 0 

: KRE ! S 

3130 

C8S4 

1BC8 

NOR 

TCO 11 

;PHD1 US 

3140 

CSS 6 

00 LH 

NOR 

TO HOL 

rRAUBE 

3150 

csss 

0BCS 

NOR 

fl 11:1. 

: Hl...IS 

31 60 
40G0 

CSS fl 
0:8814 


,? 444 

44444 

4 4 4 4 4:44 4 4 4 4 4 44 4 4 4444 

40 1 0 

cseo 


r )+: 

BE FBI- 

L.S TABELLE 4 

4020 

CSS fl 


444 

4444:4 

4 4:4 4 4 4 44 44 4 4 4 4 44 4 44 4 

4030 

4040 

CS SR 
CS SR 

5 fl 

BTflE 

B't'T 

4 50 , 

' P - 

405Ü 

CS3 ^ : 

5 5 

BYT 

T55 : 

• u •- 

4070 

CS SD 

48 

BYT 

T4B ; 

' K ■ 

40S£i 

i 83E 

34 

BYT 

T54 r 

.. T . 

40.90 

C88F 

00 

BYT' 

O ,-TF 

:EI II17EI CHEI I 

4 i 1 0 

CSS 1 


BYT 

452 , 

' 0: ' 

4 1.20 


45 

BYT 

T45 

' E ' 

41 30 

CS93 

49 

BYT 

T 4 9 

J •- 

4140 

C894 

4E 

BYT 

440 

• M 

4 150 

0395 

00 

I3VT 

O ; TRENNZEICHEN 

4 1 60 







4 r 

SY 1 

$ 4 r 

' Li ' 

4 1 70 

0397 

52 

BYT 

T52 

•' R ■' 

4180 

CS 9 8 

4 1 

BY T 

T41 

' fi 1 

4190 

CS 99 

n::j t:r 

BYT 

T55 . 

•io 

4200 

0:8 3 fl 

5 s 

BYT 

$53 

■ 3' 

4210 

C89B 

00 

BYT 

0 ; TRENNZEICHEN 

4220 

CS9C 

40 

BYT 

T4C 

'L • 

4230 

C89D 

49 

BYT 

449 

• I ■ 

4248 

C89E 

4E 

BYT 

T4E 

■ N 

4250 

C83F 

49 

BYT 

$ 4 9 

• I •' 

4260 

0:8010 

45 

BYT 

445 

■ E • 

4270 

CSfl 1 

00 

BYT 

0 .,-TF 

ENNSEICHEN 

4280 

C8R2 

52 

BYT 

452 

- R 1 

4290 

CSfl 3 

45 

BYT 

T45 . 

' E •' 

4300 

C3fl4 

43 

BYT 

443 

• r c r 

4310 

CSfl 5 

43 

BYT 

T48 

•' H ' 

4320 

CS fl 6 

54 

BYT 

T54 

■' T ■' 

4330 

CSR7 

00 

BYT 

8 :TRENNZEICHEN 
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•1 540 

CÖR 8 

42 

BVT 

M£ ; r B■' 

43 00 

C3R9 

4C 

BVT 

44C ; ' 1 ' 

•1 368 

Ci MH 

4F 

BVT' 

44 F ; ' O " 

43701 

CÖ AB 

43 

BVT 

443 ; ' C ' 

4380 

CSRC 

■4 Ei 

BVT 

:f : 4B ? r K ’ 

4 390 

C SAD 

00 

BVT 

0 ;TRENNZEICHEN 

4408 

CSftE 

4B 

BVT 

44B ; 'K - 

4 4 1 0 

03RF 

52 

BVT 

452 ;'R " 

■1420 

C8B0 

45 

B'r* 1 

445 ;"E-' 

4430 

i SB 1 

49 

BVT 

443 ; ' I •' 

4 440 

C SB 2 

53 

BVT 

453 S" 

4450 

C8B3 

00 

BVT 

0 ; TRENNZEICHEN 

4460 

CSB4 


BVT 

452 ; 'P ' 

4470 

C8B5 

41. 

BVT 

441 r'A" 

■4430 

C 8 B 6 

44 

BVT 

444 .? ' D ■' 

44 90 

C 8 B? 

49 

BVT 

449 :"I• 

4500 

L-WBb' 

55 

BVT 

455 .? •" U " 

4510 

U B 9 

C 

BVT 

453 ' S r 

4520 

C 8 BA 

00 

BVT 

0 ; TRENNZEICHEN 

4530 

C 8 BB 

50 

BVT 

450 ;'P' 

4540 

C 8 BC 

4.1 

BVT 

441 ; •' A ' 

4550 

03 BD 

55 

BVT 

455 ; •' U ■' 

4560 

C3BE 

53 

BYT 

453 ■' 3 ■' 

4570 

CS BF 

45 

BVT 

445 .r ■" E ' 

4580 

C3C0 

00 

BVT 

0 ; TRENNZEICHEN 

45.90 

CSC 1 

41 

BVT 

441 r'A-' 

4600 

C 8 C 2 

5 5 

BVT 

455 ; ' U •" 

4610 

CSC3 

5 

BVT 

453 ; ' S ' 

4620 

CSC 4 

00 

BVT 

0 ; TRENNZEICHEN 

4330 

CSC 5 

00 

BVT 

0 ; ENDE BEFEHLSTABELLE 

59991 

CSC 6 


;# 


59992 

CSC 6 


? | 

PROGRAMNEHDE 

59993 

CBC 6 


* 


593:94 

C 8 C 6 


;+* 

+. + t.+. + :f t + ♦ * +.****+** * .* * 14 4 




0 FEHLER. 

ASSEN BL IERIJNG FERTIG. 
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SYMBOLE: 


Hfl ME 

TYP 

WERT 

DECODE 

COHU 

0308 

BflSBZ 

CO NW 

O07A 

CHRGET 

CÜHW 

0073 

INTERPRE 

CO NW 

A7AE 

BflS I CBE.F 

CO NW 

R 7 E. 7 

1 NIT 

LABL 

C8Ü0 

fl US 

LABL. 

C8 OB 

BEFNR 

LABL 

CS 16 

AKKUS ICH 

LABL 

CS 1 7 

BflSERW 

LABL 

CS IS 

BflSERKIH 

COMW 

00CS 

HILF 

CO NW 

C80Ö 

BASE FÜHL 

CO NW 

OO 1 s 

BEI 

LABL 

C82D 

BEBflSC 

LABL. 

CS3A 

BE BflS 

LABL 

CS3B 

BE 2 

LABL 

CS3E 

BES 

LABL 

C853 

BEFADR 

LABL. 

C865 

BE4 

LABL 

CS6A 

STAB 

LABL 

C874 

BTAB 

LABL 

CS SA 


In diesem Listing sind drei kleine Programme zusammen¬ 
gefaßt. Das erste Programm ’INIT' setzt den Vektor der 
Befehlsdekodierung auf das Label BASEKW. Wie die neuen 
Befehle eingeschaltet werden, wird in Kapitel 6.5 er¬ 
läutert. 

Das zweite Programm stellt den neuen Basic-Befehl 'AUS' 
dar, der die Basic-Erweiterung wieder abschaltet, indem 
der Vektor wieder mit dem alten Wert belegt wird. 
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Das Kernstück des Programms ist aber das Programm BASERW, 
das wir uns im folgenden nun genauer betrachten wollen. 

Die normale Basi c-Befeh1-Dekod ierroutine beginnt damit, 
daß ein Zeichen des Basic-Textes mit Hilfe der Routine 
CHRGET eingelesen wird. Wir wollen deshalb unsere eigene 
Dekodier-Routine genauso beginnen lassen. Wir brauchen das 
Zeichen, das eingelesen wurde, nur dann zu dekodieren, 
wenn es ein Buchstabe war. Die Routine CHRGET setzt das 
Carry-Flag, wenn das eingelesene Zeichen keine Ziffer war. 
Wir können also unsere Routine sofort überspringen, wenn 
das Carry-Flag 0 ist, ebenso wenn das eingelesene Zeichen 
größer als der ASCII-Code des letztmöglichen Buchstabens 
oder kleiner als der ASCII-Code vom Anfangszeichen 'A' 
ist. Zu beachten ist, daß wir, wenn keiner unserer Befehle 
gefunden wurde, nicht auf die Adresse springen dürfen, auf 
die der Dekodiervektor normalerweise zeigt, sondern einen 
Befehl weiter, also auf $A7E7, weil wir ja bereits ein 
Zeichen eingelesen haben. 

In den Zellen $7A und $7B befindet sich der Bas i c-Befeh 1s- 
zähler. Durch die Kenntnis dieser Adresse brauchen wir 
nicht die folgenden Zeichen des Basic-Textes einzulesen, 
sondern können mit Hilfe eines indizierten Vergleichs je¬ 
weils ein Wort der Befeh 1 stabe 1 le mit dem Wort im Basic- 
text vergleichen. Die Befehlstabe1le ist so aufgebaut, daß 
jeweils ein Wort als Bytereihe angegeben wird, und an¬ 
schließend eine 0 als Trennzeichen folgt. Das Ende der 
Befeh 1stabe 1 le ist durch zwei aufeinanderfolgende Nullen 
gekennzeichnet. Jedesmal, wenn ein Befehl nicht gefunden 
wurde, wird die Nummer des auszuführenden Befehls, die in 
der Hilfszeile BEFNR gespeichert ist, um eins erhöht. Mit 
dem so gewonnen Wert wird anschließend mit Hilfe der 
Sprungtabe1 le die effektive Befehlsadresse ermittelt. In 
der Sprungtabe 1 le stehen nacheinander als Wort die Sprung¬ 
adressen für jeden Befehl, beginnend mit der Befehlsnummer 
0, die allerdings keine Bedeutung hat. Die Befehlsadresse 
erhält man dadurch, daß man die Nummer des Befehls verdop¬ 
pelt und als Zeiger in die Sprungtabelle verwendet. Lower¬ 
und Higher-Byte der Sprungadresse werden in zwei Speicher¬ 
zellen geschrieben, die im Anschluß hinter dem hexadezima¬ 
len Code $20 folgen. Dieser Code bedeutet JSR, also einen 
Unterprogrammaufruf, und zwar wird gerade unser Unterpro¬ 
gramm aufgerufen, das wir mit Hilfe der Befehlsnummer aus¬ 
gewählt haben. Nach Aufruf unseres Unterprogrammes wird 
wieder zur Interpreterschleife verzweigt. 

Der Ablauf des Programms konnte hier aus Platzgründen nur 
kurz skizziert werden, doch werden wir in Band 3 genauer 
auf die verschiedenen Arten der Basic-Erweiterungen einge¬ 
he n. 



Gra f ik-Erweiterunyen 


Wenn man selbst in dieses Programm noch einen weiteren Lie¬ 
fe h 1 ei nf iigen möchte, so muh man einfach den Befehl als 
Byte-Reihe an die Befehlstabe 1 le anfüyen, und die effek¬ 
tive Sprunyadrcsse an die Sprungtabelle anfügen. Mit die¬ 
sem Algorithmus können bis zu 127 neuen Basic-Befeh 1e ein- 
yefügt werden. 

Die oben erwähnten anderen Vektoren können dazu benutzt 
werden, eigene Funktionen zu definieren oder eigene Feh¬ 
lermeldungen auszugeben oder ähnliche Basic-Frweiterunyen. 
Darauf kann hier allerdings nicht eingegangen werden (vgl. 
dazu Band 3 ). 


6.2 Grafik-Erweiterungen 


In diesem Kapitel wird sukzessive ein Assembler-Listing 
besprochen, mit dessen Hilfe die Befehle: PUNKT, GRafik 
EIN, GRafik AUS, LINIE, RECHT, BLOCK, KREIS und RADTIJS 
realisiert werden können. Die Programmierung weiterer 
Befehle wie Segment oder Quader bzw. Quader voll, sowie 
weitere geometrische Figuren, können dem interessierten 
Leser als Übungsstoff dienen. 


6.2.1 Konstanten-Vereinbarungen und ROM-Routinen 


*** CONMODORE 

S4 

S 5 O 2 -ASSEMB L E R * * * 

VERS IOH 

1 .. 1 

ASSEMBLIERER 

VON 

jRHsS.SRC 



OBJECT-DATEI 

I ST 

ORRSS. OBJ 



SYMBOL-TRBELLE 

187 

ORRSS.SVM 




EILE 

ADR. 

OBJ' 

* QUELLTEXT 

1 0 

Ü000 


20RG $0000 

20 

f:000 


? * * * ** * * * * * * * * * * * * * ** ******** 

3Ö 

r 000 


;* 3TRRTRORESSE = 49152 * 

40 

r.000 


“ 4:$# ;+• $:•+; $ +. :+• $* :•+: $ +:++* # 

50 

C000 



60 

C000 



70 

C000 


; 

100 

C 0 0 0 


r * * * * * * * * * * * * +: * * * * ****** * * * * * 

1 1 0 

CÖ90 


.:* KONSTANT ENVFREI HERRLINGEN * 

120 

C 0 0 0 


? * *************************** 

130 

C000 


RDRL=$14 ; IHTEGERZRHL LOW.BYTE 

140 

0000 


R D R H=R D RL+1 j> " HIG H - B V T E 

141 

C000 


;RDRLRDRH WERDEN VON DER ROUTINE 

142 

C000 


;GETRDR BZW. GETAB BESETZT 

143 

C 0 0 0 


; RUCH EIHGRBEPRRRMETER t X-KOORD.. > 
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tel 6.2 

144 

C000 

;FUER -'PUi 

UFT ' 



1 45 

C 0 0 0 





1 50 

C000 

PRDL=*57 

; PRODDK 

T BZW. DIVIDEND 

.1 00 

L 000 

PRDH=PRDL 

4-1 



i. 6 1 

Ü000 

; F'RDL., PF?DH WERDEN V 

ON DER ROUT I 

NE 

162 

C-000 

;NULT MIT 

DEM PRODUKT RUS FflKl 


163 

0000 

:UND FAK2 

BESETZT. 



164 

0000 

; RUCH DIV 

IDEND FEIER 

' D IV •' . 


l 65 

0000 

• 




1 70 

0000 

FRF 1L=*59 

; l.FRKTOR BZW.. DI 

VISOR 

1 So 

0000 

FFlKl H=FRK 

1 I...4 1 



1.81 

0000 

- 




190 

0000 

FAK2=*5E: 

r 2.FRKTOR 


200 

0000 

QUÜTL=*5C 

; QOI.JT 

I ENT 


210 

UM MM 

pi inTH=0! in 

TL 4- 1 



21 1 

0000 

: QUOTE. QUOTH WERDEN 

VON DER ROUTINE 

212 

0000 

rDIV MIT 

DEM QÜUTIENTEN RUS PRO 


21 3 

0000 

;UND FRF1 

BESETZT. 



214 

0000 

? 
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0080 

Z=*KD 

; ZEIG 

ER < HI L.FSVRR 

. > 

221 

0000 

; LRUFVRRI 

RE:LE FEIER 

BESCHREIBEN 


222. 

0000 

.?VON SPEI 

CHERBERICHEN 


223 

0000 

; 




230 

0000 

GRNFH=*20 

; HIGH--BV 

I IHF . GRAPHIK 

-RAM 

231 

0000 

RN FR HG: G 

RAPHIK-RRM 

BE I *2000 


232 

0000 

? 




240 

0000 

GENDH= t-40 

;HIGH-BV 

ENDE GRAPHIK 

-RAM 

241 

0000 

; 




250 

0000 

VANFRNG=* 

04OO RN FANG VIDEO-RRM 


251 

0000 

;ANFANG V 

IDEO-RRM B 

EI *040@ 


•"> CT -i 

0000 

; 




268 

0000 

VIC-TDÖ00 

.r BAS ISA DR 

. VIDEO—CONT 

R. 

261 

0000 

; 




270 

0000 

INTL=*65 

; LOW—B VT EI 

I NT < FRC 


230 

0000 

INTH=*64 

; HIGH—BVTE IHTCFRO 


281 

0000 

NRCH RIJF 

RUF VON 'F 

L.P I NT ' STEHT 

IN 

282 

0000 

IN TL.. INT 

H DER GANZ 

ZAHLIGE WERT 

OES 

283 

0000 

s FRC (FL. I 

E S S K 0 M M fl-AK K U MIJ L R T 0 R S ) 


290 

0000 

; 




291 

0000 

;ES FOLGE 

N ADRESSEN 

VON FLIESSK 

OMMA— 

2 9 2 

0000 

; KONSTANT 

EN IM ROM. 

JEWEILS RNG 

ABE 

2 9 3 

0000 

;VON LOW . 

UND HIGH- 

BVTE 


294 

0000 

.? 




300 

0000 

F1L.-TBC 




310 

0000 

F1H=*B9 

; FLIESSK 

..KONST. 1 


320 

0000 

F05L=*11 




330 

0000 

F05H=*BF 

; FLIESSK 

.KONST. 0.5 


340 

0000 

F£PIL=*@9 




350 

0000 

F2F' I H=*E3 

: FLIESSK 

.KONST. 2 * 

PI 

360 

U0MM 

; 
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i i-'iPiri 

.+ :+ :•+:i+; * *$$ :•+: +:f * $ 

510 

C000 

RON - ROUTINEN * 

520 

UW 00 

;:+ **** :■+: **;4( +;:+*****:+;.+ **:+ * 

525 

0 0 0 0 

; 


530 

C 000 

G E T B V T=T B 7 9 B 

; LIES BVTE-WERT 

531 

C0Ü0 

; GETBVT LIES 

T BVTE—PRRRMETER AUS 

532 

C000 

.? BAS IC-TEXT. 

WERT STEHT ANSCHLIESSEND 

533 

C000 

; IM X-REGI STER. 

534 

C 0 0 0 

; 


540 

C000 

GETRDR=$B7F7 

; LIES INTEGER-WERT 

54 1 

C000 

; GETADR LIES 

r RORESS—PRRRMETER RIJS 

542 

C 0 0 0 

; BFISIC-TEXT „ 

WERT STEHT ANSCHLIESSEND 

543 

C00Ö 

: IM RDRLFIDE: 

-l„ 

544 

C008 

; 


550 

U000 

Lj El RB=^b'7bB 

t GETRDR & GETBVT 


551 

0000 

; KOMB INIERTE 

ROUT I 

NE : 


552 

Ü000 

; GETRDR & CHKCOM & 

GETBVT 


553 

0000 





560 

0000 

F R M N U M= •$ fl D 8 R 

; LIE 

9 FLOAT. 

P.-WERT 

561 

0000 

; FRMNUM LIES 

T FL IE 

SSKOMMfl- 

PARAMETER A 

562 

0000 

; BRSI C-TEXT 

WERT 

STEHT AI 

SCHL. I ESSEND 

563 

0000 

; IM FLIESSKO 

•1MA-AK 

KU CFAC ■ 

. 

564 

0000 





570 

0000 

CHKCOM=TAEFD 

; KOMMA LIEBER 

LESEN 

571 

0000 

: CHKCOM LIEBE 

RL .TEST 

EIN KOMMA IM BASIC 

572 

0000 

: WENN KEIN K 

DMI'TA 

DANN SVK 

TAX ERROR. 

5 |*‘ - 2 < 

0000 

; 




580 

0000 

ILQERR=:;fB248 

: ILL 

. QUANT I 

TV ERROR 

581 

0000 

rAUSGABE VON 

' ILLE 

GAL QUAI 

TI TV ERROR' 

er i~i 

IJM 00 

; 




590 

O00Ö 

DI2ERR=#BBSR 

? ZER 

00IVI DE 

ERROR 

591 

0000 

$ AUSGABE VON 

'• DIVI 

SION BV 

ZERO ERROR ' 

582 

0000 

; 




600 

0000 

F 1 ... D F R C KV- i : B ES R 

2; KOI 

STAUTE 1 

ACH FAC 

601 

0000 

: FLDF RCK LRE 

JT fac 

MIT KON 

STAATE. 

602 

0000 

; EIN GAB EPI-IRR 

METER : 



603 

IJ000 

? AKKU = LOW 

-BVTE 

K 0IIS T AIIT E N A 0 R E S S E 

604 

0000 

r X REG - HIG 

H--BVTE 

KONSTAN 

TENADRESSE 

605 

0000 

: 




610 

0000 

F P L. U S K = T B 8 6 7 

; FAC 

= FAC+K 

ONSTANTE 

61 1 

0000 

; PARAMETER S 

i ehe: f 

L.DFACK 


612 

0000 

? 




620 

0000 

FS I N -TE26ID 

; FAC 

- SIN' r 

HO > 

621 

0000 

;BASIC—FUNKT 

ION SI 

ii 


622 

0000 

;; 




630 

0000 

FOLIS—£12264 

? FAC 

= COS CF 

AC 

631 

0000 

r BAS IC-F LINKT 

'ION SI 

N 


632 

0000 





640 

0000 

FACXV:=TBBD4 

; FAC 

NACH C 

X 7 V > 

641 

O00Ö 

FHCXV BRING 

r FAC 

NACH VAR 

I AB LE 

6 4 r2.‘ 

LUMM 

,-EINGRBEPRRR 

H I ER : 
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643 

C000 

644 

C000 

645 

C 000 

650 

C000 

651 

rri00 

6 5 2 

0000 

660 

0000 

66 i 

0000 

662 

0MM0 

670 

0000 

671 

0000 

672 

0000 

680 

0000 

681 

0080 

632 

0000 

690 

0000 

631 

0000 

692 

0800 

633 

0000 

694 

O0Ö0 

695 

C00Ü 

696 

0000 

697 

0000 

633 

0000 

699 

f:00M 

700 

0000 

76 1. 

0000 

702 

r.000 

703 

C 000 


; X—REG = LOH — B't'TE VARflIfiBLENRORESSE 
f V—REG = HIGH—BYTE: VflRfiIfiBLENRORESSE 

FCHS=$BFD4 FflC = -F HC 

; WECHSELT HUR DBS VORZEICHEN VON FflC 

FKMI HUS=$B850.? FflC = KONSTflNTE-FflC 
PflRflMETER 31EHE FLDFflCK 

FMflLK=*Bfl28 .? FflC = FflC#KGNSTflNTE 
;PARAMETER SIEHE FL.DFflCK 

F'KDIV=$BB0F ; FflC « KONSTflNTE/FflC 
.-PARAMETER SIEHE FL.DFflCK 

FSGH=:fBC2B r fl = SGNCFflO 
;BRINGT VORZEICHEN VON FflC IN AKKU 
;UND SETZT CARRY- UND ZERO-FLAG 
;WENN FflC FREITIV, 

; DANN AKKU=:i. , CflRRY=l , ZERO=0 
: WENN FflC = @, 

; DANN AKKU-Ö CflRRY= 1 ZERO=l 

;WENN FflC NEGATIV,. 

; DANN AKKU-TFF, CflRRY==© ZERO=0 

FLF'IIIT= i BC9B ;FAC NACH INT 
;BRINGT GANZZAHLIGEN TEIL. DES 
r FflC NACH IM TL , I Hl"Fl . 


Die Startadresse der hier beschriebenen Grafik-Routinen 
wurde auf $C000 = 49152 gelegt. Dort ist im Commodore 64 
ein von Basic nicht benützter RAM-Bereich. Die Bedeutung 
der verwendeten Konstanten und ROM-Routinen entnehmen Sie 
bitte dem obenstehenden Listing, das an dieser Stelle für 
sich selbst spricht. 


6.2.2 Sprungtabelle und Hilfszellen 

i mmm C 1 ‘Oi i r * 44 4'* 44 4.4444 f 4 4 4444 444444+ 44 

..Ni i Cu ii 'i :4 SPRUNG 1ITBCL L.L 4 

;! L'i.Li i ■ i iOil : 44 44 4 DD 4 4 4 '!■ 4 4 44:4:44:44 4 44 4 44 

10 SO n.'G'i '1i. jfly'f 4. i i C ;JIJMP 

.1 ONO ‘ i.iO I :i Isis I MOP FÜNF I 

I OS.J SCO 3 41' BY'I $41 .rJi.JMP 

I I,f .0 ■ I.'M I .OSO P NOR GREIN 

IL'.Vi i.sih 4L ' I -SU ; JUMP 

108'. I COCV ■T:iSi;i p HOP L OE SCH 

JO.io' 'II. BYT MC .? JIJI-11- 

I . • u i ' LH'II 80Si i R WOP FARBE 
i i JO COOL 4-L BY 1 14L - ..Ti. IMF' 
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1 120 

C000 

808© 

R HÖR ORRUS 


1 130 

C00F 

4 

BVT 4 4C r Ji lhlP 


i 140 

C0 1 0 

8080 

P HOP: L IM IE 


1 150 

C012 

40 

Ei'r'l 44C ; .JUMP 


:i. 160 

C01 3 

8080 

R 1 ‘1U R R E C H1 


1 170 

C015 

40 

BVT 4 4L ; ! UI-IP 


1 180 

C016 

808© 

R HOP Bl Ol 1 


1 190 

C018 

40 

BVT 44t: ;.!UNI 


1 2Ü0 

C019 

80801 

R MOP ELLIPSE 


1210 

C01B 

40 

BVT 44t rJUMP 


:i 220 

001! . 

8080 

P HOP RRDIUS 


1 300 

C0 IE 


; 4 4 4: 4 4 4 4 4 4 4 4 4 44 

■4444 444 444444 

1 31.0 

C01 e 


?4 Hi LFSZEL..LEN • 

VHP: 1 OB!, i. > 4 

1320 

001E 


r 4:4 4 44 44 444 44 44 4 4 4 4:4 4 44 44 4 44 4 

1338 

001E 


BACH v l 25t- 


1 340 

001E 


BASIC = 130 v i 4 .: 

‘56 

1 350 

001 E 


;• 


1360 

001 E 


:F L. I ESSKÜMMAVARf 

MB LE 'IE 5 PS' r: 

1 330 

00 :l. E 

00 

RR: BVT 0 ?EREIL 

'S R - PLI CH H' MG 

1390 

001 F 

0000 

HÖR 0 


i 400 

6 02 :l. 

0000 

HOP: O 


141 0 

C023 

00 

RV : BVT 0 .rRAOli 

13 V-RICHTUNG 

1420 

0024 

0000 

HOP 1:4 


1430 

C©26 

0000 

HOP 8 


1 148 

C028 

00 

LAUF: EVI 0 rtiii 

ll : 'VARIABLE 

1450 

Cu; 3 

001; Hl 

HÖR 6 


1 4 68 

C £ 1.3:' 

00! 1! ' 

HOF: 0 


1 470 

t 020 

00 

5 1 L:.R 3 BV T © CF 

IR I T THE I TE 

:! -130 

C02F 

0000 

HÖR 0 


1 490 

r 030 

0000 

HOP' 0 


! ' • NH 

c 

00 

HI HK: BVT .0 :HI1 

II LEI... 

1 3 ! 0 

r 033 

0000 

HÖR O 


1 5.30 

CCC> cr » 

0000 

HOP: © 


1 5M i 

C027 


; 


1 s 10 

0037 


■ BS'TE™ UMD WORD- 

•VARRIBLE g 

1550 

0037 


j 


1 560 

C037 

00 

SPEICHI : BVT 3 ;1 

11LFS2ELLE ZUM 

1561 

L.:0 


;SF'EICHEEN V0N t 

:VTE 17 DES VIC 

1570 

C03S 

00 

SPEICHE: BVT ti; 1 

ULFSZELLE ZUN 

1571 

C039 


;SPEICHERN VOM t 

iVTE 24 DES VIC 

1580 

C039 

0000 

AE :: HÖR 0 ; 

l< OORDI MATEN 

1590 

0038 

00 

RV 5 BV 1 0 .r 

ANFANGSPUNKT 

| 601:3 

CQ3C 

0000 

ER s HOP: 0 ; 

KOÜRDI HAIEN 

1610 

003E 

0 0 

EV: BVT @ r 

ENDPUNKT 

1620 

C03F 

0000 

RDIFF: HÖR O 

DIFFERENZ H-KÜORD. 

J. 63Ö 

0041 

00 

VDISGN: BVT Ö ; 

SGN. DI FF. V~l<OÜRi: 

1 631 

0042 


?VDISGN = »FF 

NENN RV 3 EV 

1632 

CG 4 2 


:VDISGN = 0 

HEMM RV = EV 

1 633 

0042 


fVDISGN - 1 

HEHN RV < EV 

1640 

0:042 

00 

VDIABS: BVT 0 : 

ABS.. DI FE. V--KOQRD 
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! 6 i :l 

C0-13 


r'i ' ' HB: 

■: EV FlV :> 

! : .‘rit 

O : 

0000 

: :LhUF : WOR 6 

; LRtJFVRRl FIELE 

1 1--.1 .1 

i. u-r, 

00 

VL.flUF :: BVT 0 

: LRUFVFIP.TRBLE 

! (:■. ’l 

i i i.13 

0001.1 

OX: WOR 0 

KOOPD1 HFTTEH 

1 63t 

: i 1.1. : 

00 

OV :: BVT © 

; OBERER PUNKT 

U 

i i'i.■ i 

0000 

IJX ;; WOR 0 

r KOORDINATEN 

'1 70 t; 

CO 413 

00 

UV: BVT 0 

r UNTERER PUNKT 

.1 

CO 4i 

0000 

! : HOP 0 

; KOORD IN FITEN 

! l ' : 

f 04F 

00 

IV: BVT 0 

:■ KREI SM ITTELPUNK 

Am 

Anfang 

des 

Programms steht 

eine Sprungtabelle 


Sprüngen auf alle wichtigen Programmstücke. Dieses Ver¬ 
fahren mag umständlich erscheinen, daß man zunächst auf 
eine Programmze 1 le springt, in der wieder ein Sprung auf 
eine andere Zelle steht, jedoch hat sich gezeigt, daß es 
bei mittleren und größeren Programmkomplexen notwendig 
ist, eine konstante Adresse zu haben, über die ein Unter¬ 
programm angesprochen werden kann. Wenn man dann ein Un¬ 
terprogramm ändert, können sich dadurch die tatsächlichen 
Programmbeginne der folgenden Unterprogramme, die im glei¬ 
chen Komplex stehen, ändern. Man müßte sonst auch alle ex¬ 
ternen Aufrufe dieser Unterprogramme ändern. Hat man je¬ 
doch eine Sprungtabe 1 le, so braucht nur dieser Programm- 
komplex neu übersetzt zu werden und die Sprungtabelle kor¬ 
rigiert sich selbst. 

Die Sprungtabelle wird jeweils so realisiert, daß als er¬ 
stes ein Byte $4C, das dem JMP-Befehl entspricht, gefolgt 
von einem Wort, das das Sprungziel enthält, angelegt wer¬ 
den. 

Im Adressbereich $C01E bis $C04E werden Hilfszellen und 
Variablen des Assemblerprogramms definiert. Die Bedeutung 
der Variablen entnehmen Sie bitte dem Listing. Es sei hier 
nur angemerkt, daß hier drei verschiedene Typen von Va¬ 
riablen oder Hilfszellen verwendet werden. Dies sind zum 
einen die F1 ießkomma-Variablen die je 5 Byte benötigen, 
zum anderen Wort-Variablen die aus zwei Byte bestehen, und 
schließlich Byte-Variablen die nur aus einem einzelnen 
Byte bestehen. 


6.2.3 Multiplizieren und Dividieren 


In den Befehlen PUNKT und LINIE, werden jeweils arithme¬ 
tische Berechnungen benötigt. Im Gegensatz zu Subtrahieren 
und Addieren, die durch einfache Maschinenbefehle zu rea¬ 
lisieren sind, braucht man für die Bewältigung einer Mul- 
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tiplikation oder einer Division ein kleines Unterprogramm. 
Die im Basic-Interpreter vorhandenen Routinen sind hier 
ungeeignet, weil sie nur Fließkommazahlen verarbeiten und 
die zweimalige Umwandlung zusammen mit der Fließkomma-Ari¬ 
thmetik zu viel Zeit beanspruchen würde. 


Multipl izieren 


1 0070 

'~:3F8 

Fl 3+3+3 

MUL T : 


1 001-10 

C3F8 

LDH 

#$00 


1 0000 

C3 FR 

■3557 

ST Fl 

PRDL 


1 0 1 00 

U3F- U 

i~i nr er • 

S T Fl 

PRDH ; 

PRD = @ 

1 0 1 1 0 

C3FE 

fl 008 

L.DV 

#$08 s 

SOHLEII-ENZAEHLER 

1 0 1 20 

C40+3 

18 

OLC 



1 0 1 30 

0401 


MULTI: 


1 0 1 40 

0401 

265B 

ROL 

FRF 2 


1 0 1 50 

040.3 

9000 

R BCC 

ML.ll."",:: 

• NICHTS ADDIEREN 

1 01 60 

0405 

18 

OLC 



10170 

0406 

fl’557 

LDFI 

PRDL. 


1 0 1 30 

0408 

6553 

UDO 

FRK1 1 ... 


1 0 1 30 

04+3 fl 

81557 

STR 

PRDL 


1 0200 

C40C 

13558 

LDFI 

PRDH 


1 02 10 

04+3 E 

6550 

FIDO 

FRK 1H 


1 02201 

041 +3 

8558 

ST fl 

PRDH ; 

PRD -■ PRD + FFIK1 

1023+3 

0412 


MUL T2 : 


1 0240 

04 12 

39 

DEV 



10250 

0413 

F 0+30 

R BEQ 

MULEND 

8 BIT VERFIRBEITET 

1 +3260 

04 15 

2657 

ROL 

PRDL 


102 7+3 

0417 

cd L "i 

RGI... 

PRDH : 

PRD VERDOPPELN 

10280 

041 3 

30E6 

BCC 

MULT L 

■0:HILFT MUSS +3 SEIN 

1 +323+3 

041B 


MUIT 

HD :: 


1 0300 

041E 

60 

RTS 

;• ENDE 

UPEÜ MULTIPLIZIEREN 


Dieses Unterprogramm multipliziert eine 16 Bit-Zahl die in 
den Speicherzellen FAK1L, FAK1II abgelegt ist, mit einer 3 
Bit-Zahl in FAK2. Das Produkt der beiden Zahlen wird in 
den Speicherzellen PRDL, PRDH abgelegt. Bei dem Algori¬ 
thmus handelt es sich hier um die übliche bitweise Multi¬ 
plikation, die abgeleitet werden kann, aus dem Verfahren, 
das man anwendet, wenn man mit Bleistift und Papier multi¬ 
pliziert. 


Dividieren 

11070 C41C DIV: 

1I.0SO C4 l C fl900 LDH 1+0 
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1 1 090 

C4 1E 

855C 

ST Fl 

QUOTL 


1 1 100 

C420 

855D 

ST Fl 

QUOTH 

? FflK 2 = 0 

I 1 1 1 0 

C422 

19559 

LDfl 

FflK 1L 


111 20 

C424 

□000 R 

EHE 

DIV1 


1 1 130 

C426 

I955R 

LDfl 

FflK 1 Fi 


. 1 140 

C428 

D000 R 

EHE 

DIV .1. 


1 150 

C:4 2 Fl 

4 (2 8 HEB 

JMP 

DIZERR 

; DIVISOR - 0 

1 160 

L1 170 

1.1 180 

C42D 

C42D 

C42D 

fl 558 

D1V 
LDfl 

L : 

FROH 


t 1 190 

C4 2F 

0000 F: 

EHE 

DIV2 

; PRD > 0 

1. 1 200 

C431 

FI557 

LDfl 

PRDL 


1 1210 

C433 

FO00 F 

BEQ 

0IVENO 

ii 

Q 

ü: 

J. ci. 

l 1230 

C435 

j'-j 

U J. v 

SEC 



1 1240 

13436 

1955.7 

LDfl 

PRDL 


1 1250 

C438 

E559 

SBC 

FflK 1L. 


1 1260 

(.4314 

8557 

STA 

PRDL 


1 12 70 

C43C 

19558 

LDfl 

PRDH 


1 1 280 

C43E 

E55FI 

3E:C 

FFIK1H 


11290 

(2440 

O er i~- o 

ST 19 

PRDH ; 

PRD = PRD - FflK 1 

1 1300 

(2 4 42 

9000 p 

BCC 

DI VENU 

: PRD < 0 

1 1310 

(2444 

(265(2 

i NC: 

QUOTL 

; FFIK2 = FflK2 + 1 

1 1 320 

13446 

D0E5 

EHE: 

D IV1 r 

KEIN IJEBERTRflG 

1 1 330 

(24 48 

E65D 

I NC 

QUOTH 

U E B E R T R fl G S P EIC H E R 

1 i 340 

(2 4'4 Fl 

D0E 1. 

BNE 

DIV1 .5 

SCHLEIFE BIS PRD 

1 1358 

1 1360 

I.244C 

(244(2 

60 

DIV 

RTS 

END : 

.? ENDE 

DIVIDIEREN 


Dieses Programm teilt eine 16 Bit-Zahl, die in den Spei¬ 
cherzellen PRDL, PRDH übergeben wird, durch eine 16 Bit- 
Zahl in den Zellen FAK1L, FAK1H, und liefert als Ergebnis 
eine 16 Bit-Zahl, die in die Speicherzellen QUOTL, QUOTH 
abgelegt wird. 

Wenn der Divisor gleich Null ist, wird zur Ausgabe der 
Feil lerme ldung "DIVISION BY ZERO ERROR" gesprungen. Im 
Übrigen besteht der Algorithmus aus einem fortgesetzten 
Abziehen des Divisors vom Dividenden und mitzählen der 
Schleifendurchläufe, bis der Dividend kleiner oder gleich 
Null ist. Der Algorithmus, wie er von Rechnern ausgeführt 
wird, ist zwar etwas eleganter und schneller, doch für 
unseren Umfang etwas zu komplex. 


6.2.4 GREIN - Grafik einschalten 


■Iüjü C0B0 GREIN : 

•lüf.ö C0BO 289BB7 TSR GE TU VT : SEI CHEN FARBE 
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4070 
4080 
4090 
4100 
41 10 
4120 
4.130 
4140 
4150 
4160 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4500 
4510 
4520 
4530 
4540 
4550 
4560 
4570 
4580 
4590 
4600 
4610 
4620 
4630 
4640 
4650 
4660 
4670 
4680 
4690 
4700 
5000 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
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:0E. 


8 fl 

TM fl 


064 

0 fl 

FlSL 

fl 

0E. 

Fi 

ÖH 

ASL 

fl 

0E: 

ö 

01 fl 

ASL 

fl 

0E 

7* 

01 fl 

FlSL 

fl ; fl = ZF * 16 

0E 

o 

8D37C0 

STA 

SPEIDH1 

0BB 

209BB7 

-TSR 

GETBVT j HI.. GR. FflRBE -> M 

0BE 

o M 

TM fl 


0BF 

0D37C0 

OE fl 

SPEI0H1 ;fl = ZF * 16 + HF 

GL 

2 

flfl 

TflM 


ÖL 


2080801 R 

-TSR 

FARBE .? V I DEO-RflM BES0HREI BEN 

ÖL 

Ö 

AD 1 1 D0i 

L.DFl 

V10+17 

0L 

5 

8 D 37C 01 

ST fl 

SPEI 0141 s ALTE BITS SI OHE RH 

0C 

c 

AD 18D0i 

LDH 

VI0+24 

GC 

F 

8D 38C0 

STA 

SPEI0H2 ,• ALTE BITS SIOHERN 

0C 

2 

FI93B 

LDfl 

#*00111011 

:0C 

4 

SD 1 1 D0i 

STA 

VI0+17 HI-RES EIN 

0D7 

fl 9.18 

LDfl 

#*01001 1 1 010101 

0D9 

8D18D0 

STA 

VI0+24 GRflPHIK-RflM BEI *4000 

0C 

c 

20180180 R 

-TSR 

LOESGH r GRAPHIK LOESCHEN 

:0DF 

6G 

RLS 

; ENDE LI PRO GRAPHIK EIN 

:0E0 


.-+ + * 

***#**##******####*##*##* 

:0E0 


;:+ 


•0E0 


;* 0 

RflPHIK LOESCHEN * 

:0E0 


;* 

* 

:0E0 


.S*JM 


:0E0 


i. OES 

CH : 

0E0 

A9201 

LDfl 

ttGANFH 

'0E2 

S5FE 

STA 

Z+ 1 

0E4 

R90Ö 

LDfl 

#0 

:0E. 

G 

85 FD 

STA 

Z .? Z = GR NF 

Gl E 8 


LOE1 

: 

:0E 

8 

A8 

TflV 

; V = 0 

0i E 

y 


LOE 2 

: 

:0E9 

91 FD 

STA 

<: z >, v 

0i EB 

C8 

I MV 


:0iE. 

c 

D0FB 

BNE 

L0E2 ;SCHLEIFE LAUFVAR. V 

01EE 

E6FE 

IM0 

Z+l 

0F0 

fl 4 FE 

LDV 

Z+l 

01F 

2 

0040 

0PV 

#GENDH ; ENDEKRITERIUM 

:0F 

4 

D0F2 

BHE 

LOE1 ;SCHLEI FE LAUFVAR <2+1 > 

•0F6 

6G 

RTS 

;ENDE IJPRO GRAPHIK LOESCHEN 




01F 

7 




0i F 

r" 


;+ F 

FlRBEN SETZEN 

01F 

f’ 


; W-- 

* 

öF 

r 


; iE -iE + t: -t' + ^ * -iE iE iE iE * 

0i F 7 


FARBE : 

:0F7 

8 fl 

TM fl 

; M ENTHIELT FARBEN 

:0F 

8 

Fl 0G0 

LDV 

#0; SOHLEIF ENZflEHLER=0 


::0Ffl FflPRI : 
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5090 

C0FH 

990004 

STR 

VR NF FING , V 

BYTE 0-24 

5100 

C0FD 

99FR04 

STR 

VH NFFMG+250 

,.V " B't'TE 250 - 

51 10 

CI 00 

99F405 

STR 

VANFAI IG+500 

,V ,-BVTE 500- 

5120 

C103 

93EE06 

STR 

VRHFRHG+ZSe 

,V rBVTE 750- 

5130 

C106 

es 

I NY 



5140 

C107 

C0FA 

CPV 

#250 


5150 

C109 

00EF 

BHE 

FREE: 1 .r SCHL 

EIFE BIS V=25 

5160 

C10B 

60 

RTS 

;ENDE UF'RO 

FARBEN SETZEN 


Das Programm zum Einschalten der Grafik wird zusammen mit 
den Unterprogrammen zum Löschen und Farbesetzen behandelt, 
die auch vom Programmstück GREIN aufgerufen werden. 

Im Unterprogramm Grafik einschalten (GREIN) wird zuerst 
mit Hilfe der Routine GETBYT ein Byte-Wert aus dem Basic- 
Text eingelesen, mit 16 multipliziert und zwischengespei¬ 
chert. Dann wird nochmal die Routine GETBYT aufgerufen und 
der erhaltene Wert zu dem vorher zwischengespeicherten ad¬ 
diert und in das X-Register gebracht. Das X-Register ist 
Eingabeparameter für das Unterprogramm Farbe, das jetzt 
aufgerufen wird. Dann werden noch die aktuellen Werte 
zweier Bytes im Video-Contro1ler gesichert und mit den 
notwendigen Werten für hochauflösende Grafik beschrieben. 
Schließlich wird noch der Grafikspeicher gelöscht (Unter¬ 
programmaufruf LÖSCH) und das Unterprogramm verlassen. 


Grafik löschen 

In diesem Unterprogramm werden alle Speicherzellen des 
Grafikspe ichers gelöscht, d.h. auf '0' gesetzt. Als 
Laufvariable dient dabei das Zellenpaar Z,Z+1. 


Farben setzen 

In diesem Unterprogramm wird einfach der gesamte Video¬ 
speicher mit dem Wert des X-Registers beschrieben. 

Aufruf von GREIN: 

Adresse bei Aufruf mit SYS: 49155 
Syntax: GREIN,ZF,HF bzw. SYS49155,ZF,HF 
Ein kurzes Beispiel: 

1010 GREIN, 7.,6 für gelbe Punkte auf blauem Grund 
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6.2.5 GRAUS - Grafik ausschalten 


iS 50 rifif: 
1560 C10C 

RDS7C0 

GR RU 

LDR 

SPEI CH 1 


• 5 ,'U 

C J 0E 

8ü 11. D0 

STR 

VIC+17 


1580 CI 12 

RD38C0 

LDR 

SPEICKS 

:RLTE BITS IM VIC 

1590 

C1 10 

801800 

STR 

VIC+24 

HI EDER HERST ELLEN 

1600 

C1 18 

60 

RTS 

f ENDE 

I.JPRO GRRF'HIK RUS 


Dieses kurze Unterprogramm schreibt lediglich die vorher 
beim Einschalten der Grafik zwischengespeicherten Werte 
wieder in den Video-Controller zurück, so daß die Grafik 
wieder ausgeschaltet wird. 

Adresse bei Aufruf mit SYS: 49164 

Syntax: GRAUS bzw. SYS49164 


6.2.6 PUNKT 


060 

C04F 


PU Nh 

T : 


070 

C04F 





080 

C04F 

20FORE 

TSR 

CHKCOM 


0:;-l0 

C052 

20EBB7 

TSR 

GETRB 

; KOORDINRTEN LESEN 

1 00 

0055 


■ 



:l. 1 0 

C055 


F'UNh 

S s 


120 

C055 


; ft- 

KOORD. 

IN RDRL,"'RDRH 

130 

C055 


V- 

KUURD.. 

IM .X—REGISTER 

14ö 

0055 


f 



150 

C055 

EGOS 

CRN 

#200 


160 

C057 

1:5 © 0 0 R 

BCS 

PUHERR 

V K 0 O R Li n y 19 3 

170 

C059 

R515 

LDR 

RDRH 


180 

C05B 

F000 R 

BEQ 

PUN1 

• r ... k n n rq „ < 256 

190 

C05D 

C301 

CMP 

tu 


200 

C05F 

□000 R 

BNE 

PI.JNERR 

r X-KOORD,, > 511 

210 

C061 

R51 4 

LDR 

RDRL 


220 

C063 

C940 

CMP 

#64 


230 

C065 

B000 R 

BCS 

PUNERR 

.s X -KOORD. > 319 

240 

C067 


F'IJN1 

s 


250 

C067 

R51 4 

LDR 

RDRL. 


260 

C069 

2907 

RND 

#407 


270 

C06B 

RS 

TRV 

; V = 

X RND 7 

28 0 

C06C 

•SW 

SEC 

; ZUM 

HINEINROTIEREN 

290 

C06D 

R900 

LDR 

#400 


300 

C06F 


PIJN2 

s 


310 

C06F 

6R 

RüR 

R 











232 


Kapitel 6.2 


3320 

C07© 

38 

DEV 



3330 

C071 

10FC 

BF'L 

PIJH2 


3340 

C073 


; fl - 

2 T < 

7 - <HK flHD 7 > > 

335Ö 

C073 

48 

PH fl 

? WERT 

SICHERN 

3360 

C074 


■ 



3370 

C074 

R514 

LDFl 

RDRL 


3388 

C076 

29F8 

AND 

#$F8 


3390 

C073 

8514 

ST fl 

RDRL. ; 

fl DF? = HK AND $FFF8 

3400 

C07ft 

8 fl 

TKfl 



3410 

C07B 

2907 

FIND 

#$07 

fl = VK AND 7 

3420 

C070 

18 

OLG 



3430 

C07E 

6514 

FlDC 

RDRL. 

fl ss ADR + V K fl HD 7> 

3440 

C080 

8514 

ST Fl 

RDRL 


3450 

C082 

R515 

LDFl 

RDRH 


3460 

C084 

692G 

RDC 

ttGRNFH 


3470 

C086 

8515 

ST fl 

RDRH 


3480 

C0S3 


fl DF 

= GANF+ 

<HK AND $FFFS>+CVK AND 

3490 

03 ÖS 

8 Fl 

THfl 



3500 

C0S9 

29F8 

fl HD 

#$F3 


3510 

C08B 

8559 

ST fl 

F-fll< 1 L 


3520 

C08D 

fl 900 

LDFl 

#$00 


3530 

C08F 

855 fl 

STFl 

FFIK1H ; 

FflKl = VK AND $00F8 

3540 

C091 

fl 92 8 

LDFl 

#40 


3550 

C093 

855B 

STFl 

FHK2 ; 

FRK2 = 40 

3560 

C095 

208080 

? JSR 

MIJLT 

PRD = FflKl * FAK2 

3570 

CG 98 

18 

CL.C 



3530 

CG 9 9 

R514 

LDH 

RDRL. 


3590 

C09E1 

6557 

flDC 

PRDL 


3600 

C09D 

8514 

STFl 

RDRL 


3610 

C09F 

fl 515 

LDFl 

RDRH 


3620 

C0fl 1 

6553 

FlDC 

F'RDH 


3630 

C0R3 

8515 

STR 

RDRH .? 

ADR = ADR + PRD 

3640 

C0R5 


;ROF 

= UflNF- + 

C HK AND $FFF8 > + 

3650 

C0fl5 


r 

CVK AMD 7 > + 40 * <VK AND $F8 

3660 

C0R5 

68 

PL fl 

; WERT 

HOLEN CZU SETZENDES BIT 

3670 

C0R6 

fl 0 0 0 

L.DV 

#$00 


3630 

C0R8 

1114 

DR Fl 

< RDRL >, 

V MIT ZELLE ODERIEREN 

3690 

C@RR 

3 114 

STh 

CflDRLz .. 

V UND SPEICHERN 

3700 

CG HC 


RUHEMD: 


3710 

C0RC 

6 G 

RTS 

; ENDE 

l.JPRO PUNKT SETZEN 

3720 

C0RD 


RUHE 

RR ; 


3730 

C0RD 

4C48B2 

JMP 

ILQERR 

: WENN H>319 ODER V>199 


Dieses Uri terprog r nimu Mal. zwei rinsprungsteilen. Die erste 
U aho I l’l'NKI) wird benützt, wenn das IJn terprogramm als 
Das i e-liefeh 1 lieniil./l wird. Die andere E i nsprungste 1 le 
fl’UMks) wird innerlialh der folgenden Unterprogramme zum 
Sel zen ei urs einzelnen l’unktes verwendet. 

I)r; i Verwendung des I ahels PUNK! muß beachtet werden, daß 
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die Parameter (X- und \-Koord i nate des I* unk I. e s) aus dem 
Basic-Text mit. Mi 1 Fo der Routine CI IAH eingelesen werden 
und deshalb anschließend die X-koord innl.e in den /eilen 
AHR L-All RH abgespeichert ist und die Y-koord i mite sielt im 
X-Register befindet. Genau dort müssen also auch die Koor¬ 
dinaten abgelegt werden, wenn das Unterprogramm mit Hilfe 
ries Labels PUNKS aufgerufen wird. 

Im Bereich zwischen den Labels PUNKS und PIIN1 durchlaufen 
die Koordinaten eine kurze Plausibilitätsprüfung. Wenn die 
Koordinaten zu groß sind, springt das Programm zur Ausgabe 
von 1 ItLEGAL QUANI IIY rRRGR'. 

Die Berechnung der effektiven Adresse und des zu setzenden 
Bits geschieht analog zu dem iri Kapitel 4.1.2 beschriebe¬ 
nen Basic-Programm. Genauere Angaben zum Algorithmus ent¬ 
nehmen Sie bitte dem Listing. 

Adresse bei Aufruf mit SYS: 49152 

Syntax: PUNKT,PX,PY bzw. SYS49152,PX,PY 

Ein kurzes Beispiel: 

11.09 REM 4++PUH! . I F. SETZEN 44 + 


11 

10 

PUNKT.1.1 


11 

20 

PUNKT . 10 .. 

. 0 

:l 1 

30 

PUNKT... 165 

1 00 

1 

40 

PUNKT.1 66 

1 00 

i :l. 

50 

PUNKT .. 16? 

. 160 





6. 

2.7 LINIE 


6035 

C1 1 9 


i._ 1 N1 

■:r .. 



6040 

C1 19 

20FDRE 

.TSR 

CI II F i itl 



60*13 

CI 1 

20 EBB? 

TSR 

OETRB 

; HX 

..RV LESEN 

6Ö50 

t 1 1 F 

8 E 313 CG 

STR 

RV 

:: RV 

SF’E ICFI ERN 

6055 

C :!. 22 

R51 ! 

L.DI-! 

RDRL 



606G 

Ü 1 24 

803000 

ST fl 

flX 



6065 

C127 

Fl 5 15 

LDFl 

RDRH 



60 70 

C129 

31 i:3Ri. Ö 

STR 

MX i 1 r 

RX 

GESPETCHER T 

60 75 

C 12C 

20FDHE 

..TSR 

CHKCÜM 



6088 

C 12F 

20EBB7 

..TSR 

GETRB 

; EX 

,EV LESEN 

6085 

C132 

SE3EC0 

ST X 

EV 

r EV 

SPC: I CHEFIN 

6098 

CI 35 

Pit: 14 

1 .UN 

RDRL. 



6095 

CI 37 

8E3CC0 

STX 

EX 



6 1 00 

C1:3H 

fl 515 

L..DR 

RDRH 



6 1 05 

C13C 

SD3DC0 

STR 

EX+1 

; EX 

GESPEICHERT 

61 1. 0 

C 13F 


.1 
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6115 

C13F 



LINIES: 


6120 

C13F 



r b:> 

8 V : 

ANFANGSPUNKT 

6125 

C13F 



e: 

EV : 

ENDPUNKT 

6130 

C13F 



; 



6135 

C13F 

8E3CC0 


LDK 

EK 


61 40 

CI 42 

8D3DC0 


LD8 

EK+1 


6145 

CI 45 

CD38C0 


CMF 

8 K+1 


6150 

CI 43 

F000 

R 

BEQ 

LIH1 


6155 

C 140 

B000 

R 

BCS 

LIH2 .? 

BK < EK 

6160 

C1 4C 



L INI: 


6.1.6.15 

C14C 

EC39C0 


CRN 

BK 


6170 

C14F 

F 01010 

R 

BEQ 

LINKGL 

; BK = EK 

6175 

C151 

8000 

R 

BCS 

LIN 2 ; 

BK < EK 

6190 

CI 53 

8D39C0 


L08 

BK 

.? VERTAUSCHEN 

6135 

CI 56 

8E3CC0 


LDH 

EK 

VON ANFANGS- 

6190 

CI 59 

8D3CC0 


STB 

EK 

;UND ENDPUNKT 

6195 

CISC 

8E39C0 


STK 

BK 


6200 

C15F 

0D30C0 


LD8 

BK+1 


6205 

CI 62 

8E3DC0 


LDK 

EK+1 


6210 

CI 65 

8D3DC0 


STB 

EK +1 


6215 

CI 68 

8E38C0 


STK 

BK +1 


6220 

C16E3 

8D3BC0 


LD8 

BV 


6225 

C16E 

8E3EC0 


LDK 

EV 


62:30 

C171 

8U3EC0 


STB 

EV 


6235 

C1 74 

8E3BC0 


STK 

BV 


6240 

C177 



LIN2: r 

HIER IST BK < EK 

6245 

CI 77 

O 


SEC 



6250 

CI 78 

8D3CC0 


L.D8 

EK 


6255 

C178 

EIJ39C0 


SBC 

BK 


6260 

CI 7t: 

8D3FC0 


STB 

KD I FF 


6265 

C131 

8D3DC0 


LD8 

EK+1 


6270 

CI 84 

ED38C0 


SBC 

BK+1 


6275 

CI 87 

8D40C0 


STB 

KDIFF+1 ; XD I FF = EK--BK 

6280 

CI 88 

8200 


LDK 

#0 


6285 

CISC 

8 E 4 1U ü 


STK 

VDI SGI- 

; VDISGN = 0 

6290 

C1SF 



SEC 



6295 

C190 

803EC0 


LD8 

EV 


6300 

C193 

ED3BC0 


SBC 

BV 


6305 

CI 96 

F 0 0 0 

R 

BEQ 

LIHVGL 

; EV = BV 

6310 

C193 

EE41C0 


I NC 

VDISGN 

;VDISGN=SGNCEV—BV > =1 

6315 

C19B 

8042C0 


STB 

VDIBBS 

" Fl B S E. V R V . ' 

6320 

C19E 

B000 

R 

BCS 

LINS 

f EV > BV 

6325 

CI 80 

4 9 FF 


EOR 

#TFF 

AKKU KOMPLEMENTIEREN 

6330 

C182 

6901 


8 DC 

#1 

C2-ER KOMPLEMENT "> 

6335 

CI 84 

CFl 


DEK 


; K = TFF 

6 3 4 0 

CI 85 

8E41C0 


STK 

VDISGN 

? VD I SGN=SGN CEV-FlV > =.1 

6345 

CI 83 

8D42C0 


STB 

VDI BBS 

VD I BBS = BISS < VD I FF > 

6350 

C18 Ei 



L. i h: 

: 


6355 

C18B 

8D40C0 


L.DFI 

KDIFF+1 

6360 

C18E 

0000 

R 

EHE 

LINK 

.? KDIFF > VD I BBS 

6 :-: 6 5 

C1B0 

8D3FC0 


L..D8 

KD I FF 
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63 70 

C1B3 

CD 42t 

0 

CMP 

VD 1 1 iE 

•’S 


6375 

L 1 Bö 

B000 

i 

? BGS 

L. I NX 

r XD I FT ' 

■= VDIRBS 

6330 

C 1 BÖ 

4CS0EL 

0 1 

■' ..TMP 

1.1NV 

.? VDIRBS 

:> XD IF F 

6 398 

C 1BB 



l i n; 

031... :: 



•5395 

C1 BB 

AD3EC 

0 

LDR 

EV 



6409 

C1 BE' 

CD3BC 

0 

CMP 

R V 



6405 

C 1C1 

B00G 

i 

; BGS 

l Nixe 

il.,1 : RV <: = 

: EV 

64 :l 6 

C1C3 

RE3Bi 

0 

ldx 

RV 



64 :l 5 

C1C6 

8E3EI 

0 

s rx 

EV 



6426 

C 1. CB 

SD 3 Bi 

0 

ST 14 

RV ; 

RV MIT EV 

VERTAUSCHT 

6425 

C1 cc 



1.1 h: 

03LI : 



6430 

C 1 cc 

RES Bl 

0 

L i:i:4 

RV 



6435 

c i er 



l i h: 

:gi 2 : 



6440 

CI CF 

8 fl 


TSR 

; X 

= V- 1 C'iTRD. 


64 45 

C1D0 

48 


PHR 


CH ERN 


6 4'50 

c i n i 

AD39C 

0 

L DR 

RX 



6:455 

C 1 D4 

3514 


STR 

ITDR.I... 



6460 

C1D6 

RD3RC 

0 

LDR 

FIX +1 



64 65 

C:!. 09 

85 1 5 


3 TR 

RE PH 

; RDP = X - 

F.DORD. 

64 70 

C1 DB 

2055l 

0 

jsf: 

! 'UM 

; l-i II Ir T 8 

F FXEf 1 

6475 

C 1 DE: 

63 


El.!“! 

" 'r* - 

■K.ÜORD.. HCl 

t i i 

64S0 

C1 DF 

Hfl 


TAX 




6435 

C 1E0 

ES 


in:; 

r III 

:x 1 v t dopc 

„ 

64 S'0 

C 1E 1. 

El 3Ei 

0 

1 f 

ES' .-1 

MDPUNK'T EF 

'REICHT FR! 

6495 

C 1 E : . 4 

30 E 9 


BC.C 

L.II j: 0 

■L2 ; NEIN 


6500 

C1E6 

60 


P TS 

: El ir 

iE 


6505 

C1E7 







6515 

C1E7 

RD3 9 t 

0 

LDR 

Fl X 



6520 

GIER 

3514 


STR 

RDPI 



6525 

C 1 EC 

Fi 03RL 

o 

L. DR 

r: St: 



653:0 

C1EF 

3515 


S 1 •-! 

HD PH 

; Mt ll r . 

INNEN. . 'F 

6535 

C11 ! 

l II- E. 

0 

1 .DK 

EV 

j : : =■ v 

E 14 fi.. 

6540 

C 1 F 4 

2055L 

0 

rer 

Pl.il JK 

:■ r i. ! l 11 1 • 

• ! TXEI-I 

6545 

CIF 7 

EE 39i 

0 

INC 

h: : 



6558 

C l FR 

D000 

l 

Bl-JE 

L. I N'i'L 

4. 1 » ix: IN 

UEDEE PTflfn ■ 

F 555 

C1 r C 

EE SRI. 

0 

:i HC 

r: : < 1 



6563 

C 1. FF 



:: 1 - 1 : 

i UM 

ERHOL FI T 


6 565 

C 1 F F 



L. EU' 

■'GL 1 



0570 

C 1 FF' 

R133 Di 

0 

1. DR 

f:x+ i 



6575 

C202 

i D3fii 

0 

r Mi : 

H' v i i. 



6580 

C205 

ytuju 

i 

sc c 

L. INEI 

IE 1 rENDPUl Ir 

I (TTETi HI 

6585 

C2Ü7’ 

DD de: 


DHE 

L. ! MVi 

i|_. rli'ji.TJ H) 

CH I EPREIC 

6530 

1320 9 

RD3CC 

!;’l 

LDR 

EX 

; VT.pl 1 E 

NH I..I..IN- B’r 

6505 

C20i 

er: iss i 

0 

i MP 

I4X 



0i .01 1 

i: 20 F 

B0D6 


BC S 

L NIVi 

4 :• MUCH NI 

NI 1 Rl-'l. li: 

6 005 

r . : ! I. 



L ilil 

:HÜ : 



6.-. II I 

r. • 1 l. 

60 


RTS 

; E: 1 IE 

if- 


66 1 5 

c i 2 . 







- - 




i 1 1 J- 
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6625 

C212 

RR 00 

LDR 

#0 

6630 

C214 

SD43C0 

STR 

XL RUF 

6635 

C217 

SD44C0 

STR 

XLRUF+1 ; XLRUF = 0 

66*40 

C21R 


lim: 

U : 

6645 

C21R 

18 

CLC 


6650 

C21B 

RD43C0 

LDR 

XLRUF 

6655 

C21E 

8559 

STR 

FRK1L 

666 G 

Ü22Q 

6D39C0 

RDC 

RX 

6665 

C223 

851 4 

STR 

RDRL. 

667*0 

C225 

RD44C0 

LDR 

XLRUF+1 

6675 

C228 

855R 

STR 

FRK 1H FRK 1 =■• XLRUF 

6680 

C22R 

6D3RC0 

RDC 

RX+1 

6685 

C22D 

8515 

STR 

RDRIH RDR = RX + XLFlIJF 

6690 

C22F 

RD42C0 

' LDR 

VDIRBS 

6695 

P 23 

855Ei 

STR 

FRK2 f FRK2 = VDIFF = RBSCEV-RVJ 

6700 

C234 

208080 

R -JSR 

MIJLT ? PRO == XLRUF * VDIFF 

6705 

C237 

RD3FC0 

LDR 

XD I FF 

671Ö 

C23R 

8559 

STR 

FRK 1L 

6715 

C23C 

RD40C0 

LDR 

XDIFF+1 

6720 

C23F 

855R 

STR 

FRK1H : FRK 1 == XDIFF 

6725 

C241 

208080 

R JSR 

DIV ; QIJOT = XLRUF * VDIFF / XDIFF 

6730 

C244 

RD3BC0 

LDR 

RV 

6735 

C247 

2C4 1C0 

BIT 

VDISGN 

6740 

C24R 

3000 

R BMI 

LI NX 2 ; VDIFF NEGRTIV 

6745 

C24C 

18 

CLC 


6750 

C24D 

655C 

RDC 

QUO TL .jRDDIEREN WENN VDIFF>0 

6755 

C24F 

9000 

R BCC 

LINX3 ; IJHBED. SPRUNG 

6760 

C251 


lim: 

<2 : 

6765 

C251 

38 

sec 


6770 

C252 

E55C 

SBC 

QUOTE ; SIJBTRRHI EREN 

6775 

C254 


LIN. 

13 : 

6780 

C254 

RR 

T RN 

; X = RV + <XLRUF * VDIFF / XDIFF> 

6785 

lj 2 5 5 

2055C0 

JSR 

PUNKS ; PUNKT SETZEN 

6790 

IJ 2 5 

EE43C0 

I HC 

XLRUF 

6795 

C25B 

□ 000 

R EHE 

L. IN X 4 ; K EIN U EBER T R R G 

680G 

C25D 

EE44C0 

I NC 

XLRUF+1 

6805 

C260 


XI 

_RUF UM 1 ERHGEHT 

6810 

C260 


EIN. 

<4 : 

6815 

C260 

RD40C0 

LDR 

XD IFF+1 

682© 

C263 

CD44C0 

CNF' 

XLRUF+1 

6825 

C 266 

9000 

R BCC 

L.IHX5 ; ENDPUNKT ERREICHT 

6830 

C268 

D£i B0i 

BNE 

L.INX1 ,i NICHT ERREICHT 

6835 

C26R 

RD3FC0 

LDR 

XDIFF 

6840 

C26D 

CD43C0 

CMP 

XLRUF 

6845 

C270 

B0Hö 

BCS 

LINX 1 NICHT ERREICHT 

6850 



L. IN 

er a 

6855 

l_- 2 r 2 

60 

RTS 

; ENDE 

686 G 



; 


6865 

l_. 2 r 8 


LIN 

t 1 : 

6870 


fl 9 ©0 

LDR 

#0 

6875 

p •“< 7 er 

SD45C0 

STR 

VLRIJF ; VLRUF = 0 
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880 

C278 


LIN 

r'l : 


p.p.r-, 

C278 

8558 

STR 

FRK2 ; 

FRK2 = VLRUF 

890 

C27R 

RD3BC0 

LDfl 

RV 


895 

C27D 

2C41C0 

BIT 

VDI SGL 


900 

Ü280 

30U0 

R BMI 

LIHV2 


90 5 

C282 

1 s 

CLC 



910 

C283 

6D45C0 

RDC 

VLRUF 

; VLRIJF ADDIEREN 

915 

Ü286 


; 


NENN EV>flV 

920 

C286 

9000 

R BCC 

L1NV3 

.? IJNBED. SPRUNG 

925 

C288 


L. I N 

t'2 : 


930 

C288 


SEC 




C289 

ED45C0 

SBC 

VLRUF 

.? VLFUJF SUBTRAHIEREN 

940 

C28C 


: 


WENN RV>EV 

9 4 5 

C28C 


L.. IH 

t'3 : 


950 

C28C 

4:3 

F'HR 

; V-KOORD. SICHERN 

955 

C28D 

RD3FC0 

LDfl 

XD I FF 


96Ö 

C290 

8559 

STR 

FRK1L 


965 

C292 

RD40C0 

LDfl 

XD IFF+1 

976 

C295 

355 fl 

STR 

FRK1I4 

FRK1-XDIFF 

975 

C297 

20S080 

R JSR 

MULT ; 

PRD = VLRIJF * XDIFF 

980 

C29fl 

RD42C0 

LDfl 

VDIRBS 


985 

C29D 

8559 

STR 

FRK1L 


9 9 Li 

C29F 

R900 

LDfl 

#0 


995 

C2R1 

S55R 

STR 

FRK1H 

; FRKl = RBS<EV-RV> 

000 

C2R3 

208080 

R JSR 

DIV ; 

QIJ 0 T=V L. fl I.J F:+ X DIFF/VDIRB 

005 

C2fl6 

13 

CLC 



0 1 0 

C2A7 

R55C 

LDfl 

QUO TL. 


015 

C2R9 

8D39C0 

RDC 

RX 


020 

C2RC 

851 4 

STR 

RDRL 


025 

C2RE 

R55D 

LDfl 

QIJOTH 


030 

C2B0 

6D3RC0 

RDC 

RX+1 


035 

C2B3 

8515 

STR 

RDRH ; 

RDR=VLRUF#XDIFF/VDIRBS 

040 

C2B5 

68 

PL fl 

V-KOORD. MIEDER HOLEN 

045 

C2BS 

RR 

TAX 

; INS 

X—REGISTER: 

050 

C2B7 

2055C0 

JSR 

PUNKS 

■ PUNKT SETZEN 

055 

C2BR 

EE45C0 

INC 

VLRIJF 

; VLRIJF = VLRUF +1 

060 

C2BD 

RD45C0 

LDfl 

VLRUF 


065 

C2C0 

CD42C0 

CMP 

VDIflBS 

; ENDE ERREICHT PRINT 

070 

C2C3 

F0B3 

BEQ 

LINV1 

" HOCH EINMAL 

075 

C2C5 

90B1 

BCC 

LINV1 

.? NOCH MEHRMALS 

080 

C2C7 

60 

RTS 

? ENDE 



Das vorliegende Unterprogramm besitzt ähnlich dem Unter¬ 
programm PUNKT, zwei Einsprungstellen. 

Die erste Einsprungstelle hat das Label LINIE. Hier werden 
wieder die Parameter aus dem Basic-Text eingelesen und in 
die Speicherzellen AX, AX+1, AV, EX, EX+1 und EY abgelegt. 
Genau in diese Speicherzellen muß man auch die Parameter 
schreiben, wenn man das Unterprogramm über das Label 
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LIN 1 Irl S auf ruft. 

Der' verwendete Algorithmus weicht etwas von dem in Kapitel 
4.2.1 beschriebenen Basic-Programm ab. Deshalb soll hier 
kurz der Programmablauf skizziert werden. Für genauere 
Angaben sehen Sie jedoch wieder bitte im Listing nach. 

Entsprechend den Relationen zwischen Anfangs- und Endpunkt 
wird nach verschiedenen Programmstücken verzweigt. Als 
erstes wird geprüft, ob die X-Koordinaten der beiden 
Punkte gleich sind, dann wird zum Label LINXGL verzweigt. 

IVenn die X-Koordinate des Anfangspunkts größer ist als die 
des Endpunkts, werden die beiden Punte vertauscht. Dies 
ist für das Resultat am Bildschirm unerheblich, jedoch 
erleichtert es die Programmierung, wenn man im folgenden 
davon ausgehen kann, daß die Differenz EX-AX positiv ist. 
Diese Differenz wird in der Speicherzelle XDIFF, XDIFF+1 
zwischengespe ichert. Die Differenz der Y-Koordinaten wird 
ebenfalls abgespeichert und zwar in der Speicherzelle 
YDISGN das Vorzeichen der Differenz EY-AY und in der Spei¬ 
cherzelle YDIAI3S der absolute Betrag der Differenz. 

Ist diese Differenz gleich Null, wird zum Label LINYGL 
verzweigt. 

Jetzt muß nur noch geprüft werden, ob der Absolutbetrag 
der Differenz EY-AY kleiner oder größer als die Differenz 
der X-Koordinaten ist. Wenn die Differenz der X-Koordina- 
ten größer oder gleich dem Absolutbetrag der Y-Koordinaten 
ist, wird zum Label LINX verzweigt, ansonsten zum Label 
LINY. 


LINXGL: 

Da dieses Programmstück nur aufgerufen wird, wenn die X- 
Koordinaten der beiden Punkte gleich sind, kann man auch 
noch die Y-Koordinaten nach Größe sortieren, was die Ver¬ 
arbeitung im folgenden erleichtert. Im Wesentlichen wird 
nämlich in einer Schleife von Anfangswert AY bis Endwert 
EY alle Punkte auf einer senkrechten Linie nacheinander 
geze ichnet. 


LINYGL: 

Da die Punkte schon nach X-Koordinaten sortiert sind, kann 
hier dieses Programmstück sofort mit dem Anfang einer 
Schleife beginnen, die eine waagrechte Linie von links 
nach rechts zeichnet. 
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LINX: 

Dieses Programmstück zeichnet eine Linie von links nach 
rechts mit einer Neigung von + 45 bis - 45 Grad. Deshalb 
ist es hier günstig, die X-Koordinate als Laufvariable zu 
benützen und daraus jeweils die aktuelle Y-Variable zu 
berechnen. Die mathematische Funktion hierfür lautet: 

Y = AY + (XLAUF x YDIFF / XDIFF). 

Zum Berechnen des Terms werden die Unterprogramme MULT und 
DIFF herangezogen, die in Kapitel 6.2.3 beschrieben wur¬ 
den. 


LINY: 

Dieses Programm zeichnet schräge Linien mit Neigungswin¬ 
keln zwischen 45 und 135 Grad. Hier muß die Y-Koordinate 
als Laufvariable benutzt werden, und die X-Koordinate wird 
jeweils berechnet. Die mathematische Funktion hierfür muß 
also lauten: 

X = AX + (YLAUF x XDIFF / YDIABS). 

Adresse von LINIE bei Aufruf mit SYS: 49167 
Syntax: LINIE,AX,AY,EX,EY bzw. SYS49167,AX,AY,EX,EY 

Ein kurzes Beispiel: 

7EM *** LINIEN ZIEHEN **.* 

IHIE , S1 9 199,0,0 
.... Il-lI EL ... 8.1 •• 9,. 3190 
.. .INIE,-46,-40.100, 40 
... INIE, 60,. 25 .. 1 20 .25 


6.2.8 RECHT - Rechteck zeichnen 


070 

080 

r: 2 i : :E: 

26FDFIE 

FIEL.I-IT : 

:">• CFIKCOFI 


090 

C2CE: 

20EBB7 

TSR 

ge ihr ? o 

O't' LESEN 

:!. 00 

C2CEI 

3E4-SC0 

•3 TN 

OV ; Ü V 

SPE I CHER|-| 

:! 10 

C2D 1 

051 4 

i. Hfl 

RDRL. 


1 20 

C2D3 

SD4SC0 

ST Fl 

OX 


130 

C2Dö 

0515 

1 ...DR 

HD RI ! 


1 48 

C2D3 

8D47C0 

•E l I I 

OX-i- 1 ; OX 

GRS PL. .1 CHERT 

150 

C2DB 

2 8 FE i HIE 

,ISF: 

CI-IFX: OF! 


1 60 

C2DE 

28EBB7 

..TSR 

ge:TOB " IJX 

UV L.FSFIi 


1 200 

12Ö3 
1218 
1 21 I 
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3170 

C2E1 

SE4BC0 

STK 

UV ? UV SPEICHERN 

3186 

C2E4 

Fl 614 

LDK 

RDRL. 

3190 

C2E6 

SE49C0 

STK 

IJK 

3200 

C2E9 

0515 

LD0 

RDRH 

3210 

C2EB 

SD4000 

ST 0 

UK+1 >■ UK GESPEICHERT 

3220 

C2EE 


; 


3230 

C2EE 


RECHS : 

3240 

C2EE 


; u: 

■i,OV KOORD. V. OBEREM ECKPUNKT 

3250 

C2EE 


; u: 

T.UV KOORD. V. UNTEREM ECKPUNKT 

3260 

C2EE 




3270 

C2EE 




3280 

C2EE 


; LINIE < OK , OV IJK , OV 

3290 

C2EE 


; 


3300 

02 EE 

0D46C0 

LD0 

OK 

3310 

C2F1 

8 D 39C£i 

ST0 

RK 

3320 

C2F4 

0D47C0 

LD0 

OK+1 

3330 

C2F7 

8D30C0 

ST0 

RK+1 

3340 

C2FR 

0D4SC0 

LD0 

OV 

3350 

02 FD 

8D3BC0 

STR 

RV 

3360 

0:300 

0D49C0 

LD0 

IJK 

3370 

0:303 

8D3CC0 

ST 0 

EX 

3380 

0:306 

0D40C0 

LD0 

UK + 1 

3390 

0309 

8D3DC0 

ST 0 

EK+1 

3400 

0:300 

0D48C0 

L.DFI 

OV 

3410 

O.30F 

SD3EC0 

STR 

EV 

3420 

0312 

203FC1 

TSR 

LI NIES LINIE ZIEHEN 

3430 

0315 


■ 


3440 

0315 


: LINIE C LIK . OV , UK . UV > 

3450 

0315 




3460 

0315 

8D49C0 

LDfl 

IJK 

3470 

0318 

8D39C0 

STR 

RK 

3480 

031B 

flD4000 

L.D0 

UK i 1 

3490 

03 IE 

8Ü30OO1 

STR 

RK+1 

3500 

0321 

0D48C0 

L.DR 

OV 

3510 

0324 

8D3BC0 

STR 

RV 

3520 

0327" 

0D 49C:0i 

L.DR 

IJK 

3530 

C32R 

8 D300:0 

STR 

EX 

3540 

C32D 

0D40C0 

L.D0 

UK+1 

3550 

C330 

8D3DC0 

STR 

EK4 1 

3560 

C333 

0D4BC0 

LDR 

UV 

3570 

C336 

8D3EC0 

STR 

EV 

3580 

C339 

203FC 1 

TSR 

LI NI ES .? LINIE ZIEHEN 

3590 

0:330 


; 


3600 

0:330: 


; LINIE < UK .. UV OK UV > 

3610 

0:330: 


; 


3620 

0:330: 

0D49C0 

LDR 

IJK 

3630 

033F 

8 D390:0 

STR 

RK 

3640 

0342 

0D40C0 

LDR 

UX+1 

3650 

0345 

803000 

STR 

RK4 1 

3660 

0348 

0D4BC0 

LDR 

UV 

3670 

034E: 

SD3BC0 

STR 

RV 
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8680 

:: me 

RD46C0 

L DR 

OX 


8690 

i 

SD3C ! 0 

STR 

EX 


3 3ij0 

: 384 

Ellü4 Ei 0 

1. DR 

07. + 1 


87 1 0 

>'‘•7 

803DC D 

STR 

i .: i i 


8 7 2 . Ü 

39. M 

li 0415 CO 

LDH 

1IV 


8 830 

: 88D 

8D3EC0 

STR 

EV 


87 40 

3360 

2 03FC: 1 

ICR 

1.1 HI ES I.II-! .11:: ZIEHEN 


7bU 

3363 


? 



8760 

1:363 


: L. 

TH iE. T. OX . UV , ÜX , i 

JV • 

8770 

1:363 





8780 

3363 

RD4cC0 

US Fl 

OX 


8790 

3366 

SD8yc0 

STR 

RX 


8800 

3869 

RD47C0 

US El 

DX-i 1 


88 .1 0 

3 36C 

8D3FIC0 

STR 

RX i 1 


8820 

336 F 

RD4BC0 

L DR 

UV 


8880 

8840 

(3375 

SD3BC0 

RD46C0 

STR 
US fl 

RV 

OX 


8850 

8860 

C37B 

8 DSC: E.0 

RD47C0 

STR 

LOH 

OX 1-1 


8870 

C37E 

8DSDC0 

ST R 

r ui 


8888 

CSS i 

RD4SC0 

USR 

ov 


8890 

C334 

8D3EC0 

STR 

EV 


8908 

C 5s7 

203FC.1. 

JSR 

1. 11.1 ES :• LINIE ZIEHEN 


891 0 

C38R 





8920 

C38R 

60 

RTS 

s 1-1 IDE ÜPRO RECHTECK 

ZEICHNEN 

Ebenso 

wie 

die Programme 

PUNK r und LINIE, hat 

auch dieses 


Programm zwei Einsprungste1 len, die erste mit dem Label 
RECHT, die vier Parameter aus dem Basic-Text einliest und 
zwar die Größen OX, OY, IJX und UY analog zu ihrer Verwen¬ 
dung in Kapitel 4.2. Die Parameter werden in den namens¬ 
gleichen Speicherzellen abgelegt, so daß man dorthin die 
Parameter ablegen muß, wenn man das Label RECHS benützt, 
das für den Einsatz innerhalb der Maschinenprogramme vor¬ 
gesehen ist, und somit die zweite Einsprungstelle dar¬ 
stellt. 

Nach dem Label RECHS folgen vier analoge Blöcke, die je¬ 
weils die Parameter zum Ziehen einer Linie besetzen und 
dann dieses Unterprogramm aufrufen. 

Adresse bei Aufruf mit SYS: 49170 

Syntax: RECHT,OX,OY,UX,UY bzw. SYS49170,OX,OY,UX,UY 
Kurzes Beispiel: 

1.1020 REH * HINTERES RECHTECK + 

1 1025 RECHT . N3 .. V3 . X2-- X1+N 3V2-V1+V3 
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6.2.9 BLOCK 


3070 

038 El: 


BL OC 

K : 

3080 

C38B 

20FDRE 

jsf: 

CHKCOM 

3030 

C38 E 

20EBB7 

JSR 

GETRB PRRRMETER SIEHE 

3 1 00 

0391 

SE4800 

STK 

OV BEI RECHTECK ZEICHNEN 

31 10 

0334 

R514 

LDR 

RDRL. 

3120 

0336 

8D4600 

STR 

OX 

3130 

0333 

R515 

LDR 

RDRFI 

3140 

039B 

8D4700 

STR 

0X+ 1 

3150 

033E 

20FDRE 

JSR 

CHKCOM ;KOMMA HEBERLESEH 

3160 

03 Fl 1 

20EBB7 

JSR 

GETRB 

3170 

03 R 4 

8E4B00 

STX 

UV 

3180 

03 R 7 

R614 

LDX 

RDRL 

3130 

03R9 

8E4300 

STX 

UX 

3200 

03R0 

R515 ' 

LDR 

RDRH 

3210 

03 RE 

8D4RC8 

STR 

UX+1 

3220 

3230 

C:3 B1 

03 Bl 


BL 00 

:KS : 

3240 

03 Ei 1 


; PARAMETER < OXOV , UX , UV > 

3250 

03 Bl 


SIEHE RECHTECK 

3260 

3270 

03 Ei 1 
03 Ei 1 

RD4B00 

LDR 

UV 

3280 

03B4 

CD4800 

CMP 

OV 

3230 

03 B 7 

B 00 Ci 

l: E:CS 

BLO 1 UV > OV 

3300 

03B9 

RE4SC0 

LDX 

0 V 

3310 

03B0 

SE4BC0 

STX 

UV 

3320 

03 BF 

8D48C0 

STR 

OV f UV MIT OV VERTAUSCHT 

3330 

0302 


BLO1 

: 

3340 

0302 

RE48C0 

LDX 

OV 

3350 

0305 

8 E 45C 0i 

STX 

VLRIJF ? VLRIJF = OV 

3360 

0308 


BL02 : 

3370 

0308 

RD46C0 

LDR 

OX 

3380 

030Ei 

8D3900 

STR 

HX 

3330 

030E 

RD47C0 

LDR 

0 X+1 

3400 

03D1 

SD3RC0 

STR 

AX+1 ; RX = OX 

9410 

03D4 

RD45C0 

LDR 

VLRIJF 

3420 

031': 7 

8D3BC0 

STR 

RV RV = VLRIJF 

9430 

03 DR 

8D3EC0 

STR 

EV ; EV = VLRIJF 

9440 

03 DD 

RD43C0 

LDR 

IJX 

3450 

03E6 

8D3CC0 

STR 

EX 

9460 

03E3 

RD4RC0 

LDR 

IJX+ 1 

3470 

03E6 

8DSDCO 

STR 

EX+1 EX = UX 

3480 

03E9 

203F i_: 1 

JSR 

LI NIES .? LINIE ZIEHEN 

9430 

03E0: 

EE45C0 

I HC 

VLRIJF VLRIJF ERHOEHEN 

3500 

C3EF 

RC4BC0 

LDV 

UV 

9510 

03F2 

CC45C0 

CPV 

VLRIJF ? ENDE ERREICHT PRINT 

3520 

C3F5 

B0D1 

B CS 

BLO2 f NEIN 

9530 

03F7 

60 

RT'S 

; ENDE UPRO BLOCK ZEICHNEN 
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Der Teil zum Einlesen der Parameter des Unterprogramm- 
Blocks ist praktisch identisch mit dem des Unterprogramms 
RECHT. Ebenso werden die Eckpunkte in den gleichen Varia¬ 
blenzellen OX, OY, UX und UY angegeben, wenn man das Un¬ 
terprogramm über das Label BLOCKS aufruft. Zunächst werden 
die Parameter OY und UY der Größe nach sortiert, so daß 
später eine Schleife von OY bis UY laufen kann. Diese 
Schleife verwendet als Laufvariable, die Zelle YLAUF und 
ruft jeweils das Unterprogramm LINIES auf. 

Hier eine Anregung für Fortgeschr i ttene: Wenn Sie mit die¬ 
sem Unterprogramm einen Block zeichnen, der einen großen 
Teil des Bildschirms ausfüllt, so werden Sie merken, daß 
das Programm noch nicht sonderlich schnell ist. Das liegt 
vor allem daran, daß jeder Punkt einzeln gesetzt wird. Sie 
können sich jedoch eine verbesserte LINIE-Routine überle¬ 
gen, die jeweils acht nebeneinander liegende Punkte 
gleichzeitig setzt, oder sogar eine spezielle Block-Rou¬ 
tine die ganze Zeichenbereiche auf einmal setzt. 


Adresse bei Aufruf mit SYS: 49173 

Syntax: BLOCK , OX , OY , IJX , UY bzw. SYS49173, OX , OY , UX , UY 
Kurzes Beispiel: 


1500 REM ***. BLOCK ZEICHNEN 
1510 BLOCK , 15080,170 r 100 


6.2.10 KREIS (bzw. Ellipse) 


0035 

f 

44 D 


ELLIPSEs 


0040 

j" 

440 

20FDRE 

..TSR 

CHKCQM 


0045 

f 

450 

2 BEB ES 7 

TSR 

GETRB 

rLIES KK,KV 

0050 

f 

453 

SE4EC0 

STK 

KV 

; SPEICHERE KV 

0055 

|- 

456 

0514 

LOB 

RDRL 


0060 

f 

458 

8D4CC0 

STR 

KX 


0065 

L 

45B 

R515 

LDR 

RDRH 
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20070 

C45D 

804000 

STB 

EX+1 ;KX GESPEICHERT 

20075 

C460 

20FDRE 

.TSR 

CH KO OM RDM MB 

UEBERLESEN 

c-'UUWfci 

04 63 

208000 

TSR 

FRMNIJM jHOLE P 


20085 

C466 

R0C0 

LDV 

ttßfiSH 


20090 

C468 

021E 

LDH 

#RX.BBSIS 


20095 

C46FI 

20D4BB 

TSR 

FHCXV 


20 1 00 

C46D 

26 FOB e: 

•TSR 

CHECOM rKOMMfi 

UE E: ERL ES EH 

20165 

0470 

208000 

TSR 

FR MIT UM :■ HOLE F 

‘V 

201 10 

0473 

R0C0 

L.0V 

#BHSH 


201 15 

0475 

0223 

LDH 

ttRV-BRSIS 


20120 

0477 

20O4BB 

TSR 

F- 00 XV 


20125 

0470 

Fl 91E 

L.00 

ttRH.E: HS IS 


20130 

0470 

R0C0 

L0V 

ttBRSH 


20135 

C47E 

205SB© 

TSR 

FKMTMÜS r FRC 

= I9X--RV 

20140 

048 1 

202BBC 

TSR 

FS GH ; 0 ::: 

8 U N '. RX—h! V 

20 145 

0484 

3800 R 

BMI 

ELI 


20156 

04 86 


; 14 

TILI RX >* RV .. 

DHHN 

20155 

0486 

0:9 iE 

L.00 

ttRH-BRS IS 


20160 

0488 

0000 

LDV 

ttBRSH 


20165 

0480 

20H2I3B 

TSR 

FLDF0CK ; FHC 

= RX 

20170 

04 8D 

408030 R 

..IMP 

EL. 2 


20175 

0:490 


ELI 

; WEHN RX < F 

V 

20180 

0490 

092 3 

LDH 

ttRV BBS 1S 


20185 

0492 

0000 

L.OV 

ttBRSH 


201 90 

0494 

2002BB 

TSR 

FL DERCE r FHL 

= RV 

20195 

0497 


j~ 1... 2 



20200 

ij 4 9 7 

09 BO 

LDH 

#F 1L 


2020b 

0499 

00B9 

LDV 

#F 1H 


202:1 0 

i: 490 

200FBB 

TSR 

FEDJV FRC = 

1 / FRC 

2821.5 

C49E 

022D 

LDX 

#STEP-BHS1S 


20220 

0400 

0000 

LDV 

ttBRSH 


20225 

0402 

20D4BB 

TSR 

FFlCXV :■ STOP 

= 1/RX BZW 

20230 

04 Fl 5 

0920 

LD Fl 

tt-t 20 


20235 

0407 

802900 

3TR 

LHUF-f 1 


20240 

04 00 

0900 

L.DFl 

Fl 1 00 


20245 

0400 

8O28C0 

STB 

L. RUF 


2i"i25M 

04 0F 

802000 

ST Fi 

i. HUF + 2 


20255 

C4B2 

8B2BC0 

STR 

LH Ul 7 - < 3 


20260 

04 B 5 

802CC.fi 

ST H 

1 Hl H + 4 ; ! HUF 

=::: 0 

20265 

C4B3 


El. 3 



20270 

04 Ei 8 

0923 

L.Dfi 

ttLHUF- BBS J S 


20275 

04 BR 

R0C0 

LDV 

ttBRSH 


2:0230 

04 BO 

20R2BB 

TSR 

FL. DF F : l CE - FRC 

= LAUF" 

20285 

04 Bf :: 

200002 

TSR 

FS IH :: F l-M 

SIFP. 1. HUF 

20290 

C4C2 

09 IE 

LDFl 

#RX - BBS I 


20295 

C 404 

FlMUÜ 

LDV 

ttBRSH 


20300 

C4C6 

2028BFI 

TSR 

r-'Mlil 1 :■ F HO 

s: H< I.HI IF ■ + 

20305 

0 4 1 9 

0:9 1. 1 

LDH 

ttFG5l... 


20 3 1 O 

04 L B 

00 BF 

LDV 

iiFH'l! 


203 1 5 

C4CE» 

2067BS 

.TSR 

F BLUSE FFlO = 

S I H ■: 1 FUJI 1 

20320 

04110 

209BB' 

S R 

V L1 IUI :• Fm 

JHFEOFR 
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2 * r 

i 4D8 

•i 

X 1 

i u: 




2Ü 3 30 

i -ID4 

fl 56 5 

LDH 

II ITT. 



20 •: .* . 

0406 

6D4CC0 

FlDC 

k X 



."•0 0 

1.4 [19 

851 4 

S 1 fl 

HD FT.. 



20345 

• 4 ÜB 

Fl 56 4 

L.Dfl 

II-IT14 



2Ö350 

C 4 DD 

6D4I ICO 

FlDC 

ir: :-i i 



20 355 

C4E0 

8515 

ST fl 

flDRIH 

ADR = 

< N-i-1 NT C 31N 1 LAUF )*l 


C4E2 

R928 

1 DH 

#i MijF -r 

HS 1 

■i Q.. 5 

20365 

C4E4 

R 0 O 0 

LDt 

ttBFlSH 



20370 

C4E6 

2 ö Fl 3 Er B 

TSR 

Fl DF fl CI, 

: FflC 

.: LAUF 

20375 

Ü4E9 

2064E2 

..TSR 

FC OS 

: FflC 

=: CÜSCLfll IF ■ 

20380 

C4EC 

li 3 

LDH 

#RV--BflS 

IS 


28385 

C4EE 

fl 000 

I...DV 

#Bfl SH 



20390 

C4F-0 

2028Bfl 

TSR 

FIT Hl. ! : 

FflC - 

COS •. LAUF' +RV 

20-395 

C4F3 

fl 9 1 l 

1. Li Fl 

H405I-. 



20400 

C4F5 

i 1081 

I..DV 

ITF05IT 



204051 

C4F7 

2067B8 

JSR 

F F LUSK 

!■ r hc 

Ci 'S 1... F-lUF ' * RVh 0. 

20410 

C4FR 

2Ö9BBC 

JSR 

FL PIN r 

■ 1 Fv : 

-> INTEGER' 

20420 

C4FE 

B565 

LDfl 

.1 irr:.. 



20425 

L 500 

SD4FCO 

FlDC 

F V 



20430 

i :508 

Hfl 

TflX 

; N := 

11 IT < C C 

S C LAUF > if R'V +-05 > N 

20435 

CS 04 

205500 

.TSR 

FTJiiKS ; 

PUNKT 

SETZEN 

20440 

C507 

fl 9 2 8 

i.. DH 

#L.flLJF i 

1 TS F 


204 45 

C509 

fl0C0 

I2TV 

#13fl SH 



20450 

C50E 

2:0l-i 3 DE: 

J Sfc 1 

FL.DFflCI 

; FflC 

LAUF 

20455; 

C50E 

FI32D 

LDfl 

#ST EF'—E 

HS 13 


20460 

er: 10 

H 0 O 0 

LDV 

# Bfl SH 



2Ü465 

C512 

2067B8 

JSR 

FpLUSF 

: FflC 

= LAUF + STEP 

20470 

C5 :l 5 

H228 

l.d: : 

1H. AUF-BASIS 


20475 

C517 

fl 000 

LDV 

# Bfl SH 



20480 

C519 

20D4BB 

JSR 

FflC KV 

? LAUF 

= LAUF 4 STEP 

20485 

C5:IC 

Fl .9 09 

LDfl 

#F 2 F' 1 1 ... 



2049Ö 

C51E 

H0E3 

LDV 

#F 2 PIH 



20495 

C520 

20508:3 

JSR 

FKMI NUS 

r FflC 

= 2 * PI - LAUF 

20500 

0523 

202B ESC 

JSR 

FS GH 

fl SG 

HC 2*F'I - LAUF ■ 

20505 

0526 

1 090 

BPL 

EL 3 : 5 

.'CHLEIF 

E BIS LAUF > 2#PI 

20510 

C528 

6 0 

f;ts 

ENDE 

UF’FiO ELLIPSE ZEICHNEN 


Diese Routine besitzt vier Parameter von gemischter Art. 
Der erste Parameter (X-Koordinate des Mittelpunkts) ist 
ein 2 Byte-Parameter, der nächste Parameter (Y-Koordinate 
des Mittelpunktes) ist ein Byte-Parameter, und die beiden 
anderen Parameter (Radius in X- und Y-Richturig) sind 
Fließkomma-Parameter. 

Zum Einlesen eines Fließkomma-Parameters wird die Basic- 
Routine FRMNUM benützt. Die Parameter werden in die Spei¬ 
cherzellen KX, KX + 1, KY sowie 5 Byte in die F1ießkomma-Va- 
riable RX und 5 Byte in die F1 ießkomma-Variable RY. 
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Kapitel 6 


o 


I im weiteren werden im wesentlichen Fließkomma-Routinen 
verwendet, die den Algorithmus des in Kapitel 4.2.5 be- 
sclir i ebenen lins ic-Proymmms naclivol lziehen. 

Anschließend müssen noch die erhaltenen F 1 i eßkomma-W/erte 
in Integer-Werte umijewande 11 werden, um die Koordinaten an 
das Unterprogramm PUNKT zu übergeben. 

Die verwendete Schleife benützt ,ji e Fließkomma-Laufvaria¬ 
ble LAUF mit der Schrittweite STEP. Die Schleife läuft 
immer von 0 bis 2 * PI. 

Adresse bei Aufruf mit SYS: 49176 

Syntax: KRE IS,KX,KY,RX,KY bzw. SYS49176,KX,KY,RX,RY 
Kurzes Beispiel: 


.1600 PEP! *44 KREIS ZEICHNEN *:*:* 
1 6 I. N I- :EE ! S , 280.150, 25,10 


6.2.11 RADIUS 


£ 1 070 

2 J. 080 

i... 529 

20FDRE 

RI" 1 C-i 

J SR 

1 US : 

CHKCOPI 


21090 

C52C 

20EEB7 

..TSR 

iS ET AB 

.? L. I ES FIX . AV 

2 1 1 00 

C52F 

8E3BC0 

8 TN 

HV 

;SPEICHERE AV 

21 1.10 

C532 

fl 514 

LDfl 

flDRL 


21 120 

C534 

SD39C0 

ST fl 

AX 


21 130 

C 537 

fl 515 

LDfl 

AD RH 


2.1.1.40 

0539 

SD3AC0 

ST fl 

flX+1 ; 

AX GESPEICHERT 

21 150 

C53C 

20FDAE 

•JSR 

CHKCOM 

; KOMMA LIEBER LE SEN 

21 160 

U !3 P 

208AAD 

..TSR 

FRP1NUM 

;HOLE RX 

21170 

C542 

R0C0 

LDV 

# BEI SH 


21 180 

C 544 

fl 21E 

L.D 2 

#RX—Bfl£ 

IS 

21 190 

C546 

20D4BB 

-TSR 

F- RU XV 


21208 

C 549 

2 Ei FD AE 

JSR 

CHKCOM 

üK OM IT fl UEBERLESEN 

21210 

C54C 

208flflD 

JSR 

FRMNUP1 

;HOLE RV 

21220 

C54F 

A0C0 

LDV 

#BflSH 


21230 

C55 1 

1-122 3 

LOX 

#RV-BflS 

IS 

21240 

CSS 3 

2 EID 4 BE: 

JSR 

FflCXV 


21258 

r 556 

20FDflE 

JSR 

CHKCOM 

;KOMMA UEBERLESEN 

21260 

C559 

2 Ei 8 Fl Fl Ci 

JSR 

FRMNUM 

;HOLE HI 

21270 

C35C 

R0CÖ 

LDV 

ttBASH 


2128Ö 

IJ P« 5 El 

R232 

LOX 

#H INK--E 

flSIS 

21290 

C560 

20D4BB 

JSR 

FflCXV 





Grafik-Erweiterungen 


247 


130 fei 

C563 

206BE2 

...TSR 

FS IN ; 

F 00 = 

s i n <: w i nf: 

1310 


091 E 

L..DO 

#RX.80S 

IS 


1 320 

C568 

R0CÖ 

L..ÜV 

#8: Fl SH 



1330 

C5SR 

2028B0 

TSR 

FI'IRLK ? 

FOC «■ 

SIH ■: IT T HK > *RX 

1340 

C56D 

031 1 

LDO 

#F05L. 



1350 

C56F 

O0EF 

I....DV 

#F05H 



:l. 36G 

0571 

206788 

TSR 

FPL. US t. 

; FOC = 

s i ii c h i hk :■ t.px 

1370 

r 574 

209BBC 

TSR 

FLP1 ITT 

: FOC - 

> INTEGER 

1380 

C577 

18 

CLO 




1390 

0578 

R565 

LÜH 

I l-l TL. 



1400 

0570 

6D39C0 

ODO 

RX 



14 10 

C57D 

803000 

3 TO 

EX 



1420 

C580 

0564 

I....DB 

I ITT II 



1430 

L 582 

6D3000 

ODO 

0H+ 1 



1440 

C585 

803000 

ST Fl 

EX+1 ; 

EX = 07 

+114TCS IN TN IHK 

1450 

C'583 

R932 

LDO 

TUT I NI -BOS .1S 

h-L 

.1.460 

0580 

0000 

L..DV 

# BOS Fi 



1470 

C58C 

20O2BB 

TSR 

FL DF Fl CF 

: FOC 

= HI HK 

1480 

C58F 

2064E2 

TSR 

F8: ns 

; FOC 

= LOSLITINF ■ 

1490 

Ü 392 

0923 

l .00 

#RY.BOS 

IS 


1500 

0534 

R0CÖ 

LDV 

#BOSH 



1 510 

C596 

2028BO 

TSR 

FTTOLF : 

FOC = 

COS ■: HI HK > *RV 

1520 

0599 

09.1 1 

L DO 

#F 05L. 



1530 

059B 

OÖ BF 

L DV 

Tb 0511 



1548 

0590 

,:d U 6 7 B b' 

J'SP 

FPL USK 

; Fi l: = 

OOS L111 HK > 4 

1550 

0500 

20988:0 

TSR 

FLPI NT 

s F ITC 

> JHTEGER 

156 G 

05 Fl 3 

1 8 

OL 0 




.1570 

0504 

R565 

LDO 

INTL 



1580 

0506 

60:3800 

l-l DO 

Fl V 



1590 

0509 

803EC0 

STO 

EY : EVsb 

INT ' 008 

N .[ NK i+jR! V+0 .. 'o 

1 600 

0500 

203FC1 

TSR 

LIN I ES 

; L IH 1 E 

I EH EH 

1610 

05 OF 

60 

R'T'S 

; ENDE 

I IF'RO P'OD T US ZE IOHI-IEH 


Hier werden, ähnlich wie im IJnterproyramm KREIS fünf 
Parameter mit gemischten Typen eingelesen. Das sind: K\, 
KY, RX und RY, mit der gleichen Bedeutung wie bei KREIS 
und WI für den Winkel, in dem der Radius gezeichnet werden 
soll. 

In den folgenden Zeilen, in denen wieder einige Aufrufe 
von Fließkomma-Routinen Vorkommen, wird im wesentlichen 
wieder das Basic-Programm aus Kapitel 4.2.8 nachgebilriet. 

Adresse bei Aufruf mit SYS: 49179 


Syntax: RADIUS,KX,KY,RX,RY,RW bzw. SYS49179,KX,KY,RX,RY , RW 
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Kurzes Beispiel: 


100 REM *** 1 2—ZREHLIDER STERN W* 
110 FÜR W= 0 TÜ 2*ii STEP rr.-'S 
120 RRlJ I US , 160, 100... 70,5SW 
130 NENT 


6.2.12 Symboltabelle 

Zum Abschluß der Beschreibung der grafischen Routinen soll 
noch die Symboltabelle abgedruckt werden, in der alle 
Variablenzellen, Hilfszellen, Konstanten, ROM-Routinen und 
Labels zu finden sind. 


SYMBOLE: 



GX 

LR BL 

C046 

NH ME 

TYP 

WERT 

ÖV 

LR BL. 

C049 

fl DEL 

COT IW 

0014 

IJX 

LRBL 

C043 

HD RH 

CONN 

00 1 5 

UV 

LR BL. 

Ü04B 

REDL 

CO NW 

0057 

KN 

LR Bl... 

C04C 

FRÜH 

CONN 

0058 

KV 

LRBL 

C04E 

FHK11 . 

CO NW 

0059 

PUNKT 

LRBL 

C04F 

FMK. 1H 

CONW 

005 fl 

PUNKS 

LRBL. 

C055 

FMK:. 2 

CONTI 

00513 

RUN 1 

LRBL 

C067 

QIJÜT'L 

COHW 

005 Ü 

RIJN 2 

LRBL. 

C06F 

OUOT H 

CONW 

0050 

RUHEND 

LRBL 

C0RC 


CONW 

00 FD 

FÜNFTER 

LRBL 

CORD 

GRHFH 

CONW 

0020 

GRE .1. N 

LRBL 

C0B0 

ÜENDH 

COHW 

0040 

LUESCH 

LRBL 

C0E0 

VHNFHNG 

COHW 

0400 

1. OE 1 

LRBL 

C0ES 

V1C 

COHW 

[..1000 

L0E2 

LRBL 

C0F9 

j in l 

CONW 

00 ß 5 

F RR BE 

LRBL 

C0F7 

TNT H 

CONW 

0064 

FRRB1 

LRBL 

C0FR 

F 1 L 

CONW 

00BC 

GEROS 

LRBL 

C10C 

F1H 

CONW 

00 B 3 

L. INIE 

LRBL 

C119 

F05L. 

CONW 

00 1 1 

L INI ES 

LRBL. 

C13F 

F05H 

CONTI 

O0BF 

1 .... IN1 

LRBL 

C 1 4L 

F 2PIL 

CONW 

0009 

LIN2 

LRBL 

C 1 77 

F2PIH 

CONTI 

00E3 

LIN3 

LRBL. 

C1RB 

ÜETBYT 

CONW 

B 798 

L. I HNOL 

LRBL. 

CTBB 

GETRDR 

CONTI 

B7F7 

LI NN GL. 1 

LRBL 

C 1 . cc 

i 4 i HB 

CONTI 

B7EB 

L .1 HNGL2 

LRBL 

C1 CF 

FRMNUM 

C ONW 

HD BR 

L1NVGL 

LRBL 

C1E7 

ff iT.COM 

i 01 II I 

RE FD 

L. IN VGL .1 

LRBL. 

c:: 1 FF 

i I...QEEE 

COHW 

B243 

L. I NE NU 

LRBL 

C21 1 

1.1 1 ZERR 

CONW 

BB80 

1 1 NN 

LRBL 

C212 

Fl DF FICI' 

CONW 

BBR2 

L. I NN 1 

LRBL 

C21 fl 

F F-'LUSK 

CONTI 

BBC 7 

L. INN2 

LRBL 

C251 
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FS I N 

C OHM 

E26B 

1... I NX3 

1 .RBL 

1 2' '■! 

F t OS 

CO NH 

E264 

L [ 11X4 

1. RBL. 

C2C0 

F'RCXV 

CO NH 

BEI 04 

L T1IX 1 :. 

LRBL 

C272 

FÜHL 

CONH 

Bl-04 

L. IT T,' 

LRBL. 

C2 73 

FKMINUS 

CO NH 

BÖ 00 

1... I NY 1 

1 RBL. 

02 i'S 

FM OL. K 

CONH 

BH2G 

1 I.NY3 

I. RBL 

C288 

FKD 1 

CONH 

BBÖF 

L 1 NY'.' 

LRBI. 

C28C 

F S G M 

CONH 

BC2B 

RECHT 

LRBL 

Cci 

FLPI ITT 

CONH 

BF. OB 

PECHS 

1. .RBL 

i. 2t E 

BO SFI 

CONH 

00 CO 

BL. OCK 

LRBL 

C 3GB 

BÖS 1S 

CONH 

C000 

BLOCLS 

LRBL 

i . 43 1 

RN 

LR I3L 

CO 1L 

Bl. OL 

LRBI 

C 3 F'.::' 

RV 

L..RBL 

CO 2 3 

BL 02 

L RBL 

1 3 Cg 

LRUF 

LR BL 

IJ 028 

MULT 

LRBL 

CSF 

STEP 

LR BL, 

C02D 

MUL T L 

1. i- 'BL. 

C 4M 1 

H 1 HF 

LRBI... 

CO.3 2 

MULT2 

I..R Bl... 

C4 .1.2 

SPEICH1 

LR BL. 

0037 

MULEND 

1. RBL. 

C41B 

SPE 1 CH,2 

LR BL 

CO 38 

o i: V 

L.RBL. 

041C 

FIX 

LRBL 

CO 3 9 

Dl V.1. 

LRBL. 

i. 4 20 

RV 

LRBL 

C03B 

0.1 

L.RBI... 

0435 

EN 

L.RBL 

CÖ3C 

0IVENO 

L. RBL. 

C44C 

e:v 

LRBI. 

C03E 

Li.I l-'SE. 

LRBL 

C44D 

NDI FF 

LRBL 

C03F 

El. 1 

L.RBL. 

134:30 

VOISGH 

LRBI... 

C04:l 

BL. 2 

LRBL 

L 49? 

VD :i RBS 

LRBI.. 

0042 

EL. 3' 

LRBL 

C4B8 

XL RUF 

LRBL. 

C84 3 

ERD.! US 

L.RBL. 

C':529 

VLRUF 

LRBI... 

C045 





6.3 PAUSE - Befehl 


Wenn man ein Basic-Programm für kurze Zeit anhalten will, 
so wird meistens eine Warteschleife ( FOR 1=1 TO 1000 : 
NEXT ) verwendet. Nachteilig ist, daß eine Variable ver¬ 
geudet wird, und daß die Zeit nicht in Sekunden angegeben 
werden kann. 

Deshalb wird im folgenden eine Routine vorgestellt, die 
sich einer der im Commodore 64 eingebauten Uhren bedient, 
um eine definierte Anzahl von Sekunden zu warten. 


+4+ COMMODORE 

34 

6502—RSSEMBLER *** 

VERSION 1 . 

RSSEMBLIEPEN 

VON 

PRUSE.. SRC 


OBJECT.ORTE 1 

i: st 

PREISE. OBJ 


SVMBOL-TRBELLE 

I ST 

PRUSE.. SVM 



ZEILE: Fl DF. OBJ * QUELLTEXT 


NOEG :fCFI08 


l 0 CO00 
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Kapitel 6.3 


2Ö 

CR 00 


;**************************** 

30 

UH00 


;* STRRTRDRESSE ==51712 * 

40 

CRÜÜ 


;**************************** 

50 

CR 00 


; 

60 

CR Ö0 


; 

70 

CR 00 


; 

I 00 

CR 00 


;**************************** 

1 1 0 

CR 00 


;* KQNSTANTENVEREINEHRUNGEN * 

1 20 

U fl 00 


;**************************** 

1 30 

CR00 


CIR2 == $DD00 ; ADRESSE DES CIR2 

131 

CRO0 


“ 

500 

Uli UU 


;**************************** 

5:!. 0 

CR 00 


;* ERSIC-ROUTINEN * 

520 

CFl 00 


;**************************** 

er •'> er 

CR 0ü 


; 

530 

CR 00 


GETBVT=$B79B; BYTE—WERT AUS BASIC- 

531 

CR00 


;TEXT IM X—REGISTER UEBERGEBEH 

5 3 2 

CR 00 


; 

540 

CR00 


ST0P=$F'6ED; STOPTRSTE ABFRAGEN 

541 

CR 00 


; 

1 000 

CR 00 


;**************************** 

1 0 1 0 

CR00 


;* PRIJSE VOM BIS ZU 255 SEC.* 

1 020 

CR 00 


;**************************** 

1 030 

Uli 00 


PRIJSE : 

1040 

CR 00 

RD0EDD 

LDR CIR2+14 

1050 

CR 03 

0980 

ORR #T10000000 ; BIT 7 SETZEN 

1 060 

CR05 

8D0EDD 

STA CIA2+14 ; AUF 50-HZ-TAKT 

1070 

CR08 


; 

1 080 

CR08 

RD0FDD 

L.DA CIA2+15 

1 090 

CR OB 

297F 

FIND #$01111111 ; BIT 7 LOESCHEN 

1 1 00 

CR0D 

8D0FDD 

STA CIFl2+15 ; UHRZEIT FOLGT 

1110 

CR 10 


; 

1120 

CR 10 

R203 

LDX #3 

1.130 

CR 12 

R900 

LDR #0 

1 140 

CR 14 


PAU1 : 

1 150 

CR 14 

9D080D 

STA CIR2+8..X ;ZEITREGISTER = 0 

:l. 160 

CR 17 

CR 

DEX jNRECHTES REGISTER 

1170 

CR 18 

10FR 

Ei PL PAU1 

1180 

CR IR 


:UHRZEIT IST JETZT 00s00 :00 :0 

1 190 

CR 1R 


; 

1200 

CR IR 

209BB7 

TSR GETBVT; PARAMETER HOLEN 

1210 

CR 10 

A3 00 

LDR #0 

1220 

CR 1F 

8D8080 

? STA MIN; SOLL-MINUTEN = 0 

1230 

CR 22 

FS 

SED ; BCD-ARITHMETIK 

1240 

CR 23 


PAU2 : 

1250 

CR 23 

E* 000 

CPX #0 ;X=0 PRINT 

1260 

CR 25 

F000 

? BEQ F'AU4;WENN JA,ZUM SCHLEIFENENDE 

1270 

CR 27 

CR 

DEX ; X HERUNTERZAEHLEN 

1280 

CR 2 8 

18 

CL.C 

1290 

CR 29 

6901 

RDC #1 ; 1 IM <BCD>—AKKU ADDIEREN 

1295 

CR2B 

C960 

CMP #$60 ; VERGLEICHE MIT 60 CBüLD 
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Kapitel 6.3 


Zum Verständnis des Programms ist es notwendig, die Bedeu¬ 
tung der verwendeten Register des CIA (Complex Interface 
Adapter) im Commodore 64 zu kennen. 

Im vorliegenden Programm wird der zweite CIA mit der 
Startadresse $DD00 = 56576 verwendet. Die Adresse eines 
Registers ergibt sich also aus Registernummer + $DD00. 


CIA - Register 8, 9, 10 und 11 

Diese Register enthalten die Zehntel-Sekunden, die Sekun¬ 
den, die Minuten und die Stunden jeweils im BCD-Format 


CIA - Register 14 

Bit 7 muß gesetzt werden, wenn der Rechner am 50-Hz-Netz 
betrieben wird. Ansonsten geht die Uhr nach. 


CIA - Register 15 

Bit 7 dieses Registers muß gesetzt werden, bevor man die 
Uhrzeit ( Register 8 - 11 ) setzt. 


Im vorliegenden Assembler-Programm wird zunächst die Zeit 
auf 00:00:00:0 gesetzt, und dann die Anzahl der Sekunden 
aus dem Basic-Text gelesen (DSR GEIBYT). Dann wird mit 
Hilfe einer Schleife diese Binärzahl in eine BCD-Zahl für 
die Sekunden und eine für die Minuten umgewandelt. Zur 
Speicherung dieser Werte werden die Zellen SEC und MIN 
ve rwcndet. 

In der eigentliehen Warteschleife werden nun die CIA-Re- 
gister 9 und 10 immer wieder abgefragt, bis die Sollzeit 
abgelaufen ist. Zwischendurch wird aber immer wieder die 
Stoptaste abgefragt (DSR STOP), damit der Rechner durch 
eine zu lange Pause nicht völlig blockiert ist. 

Adresse für Aufruf mit SYS: 51712 

Syntax: PAUSE,SE bzw. SYS 51712,SE 

Das Kommando SYS 51712,0 bzw. PAUSE,0 setzt nur die Uhr im 
CIA 2 zurück. SE bedeutet die Wartezeit in Sekunden, und 
kann auch eine Variable sein. 
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6.4 Basic-Funktion ASC() ändern 


Is mag vielleicht schon einigen Lesern cinfgefa 1 1 en sein, 
(Iah die ASC-F unk t ion /u einem 11 I L GAL QUAM I 1 I Y ERROR 1 
führt., wenn das Argument. ein leerer String ("") ist. ln 
vielen lallen, insbesondere heim Linlesen von ein/einen 
Zeichen von der floppy (vgl. Kapitel 5.2) wäre es güns¬ 
tiger, wenn die Funktion ASC("“) den Wert ’0’ liefern 
w ii r d e. 

Da/u muh man einen leil des Ilasic-1ntorproters ändern, 
dies funktioniert nat.hr lieh nur, wenn der Interpreter im 
RAM steht. Deshalb müssen wir im Adress-Bereich $A000 bis 
SlIFLF das ROM in das RAM kopieren. In diesem Bereich steht 
auch die ASC-Funktion. 

Der Kopiervorgang kann mit einer Basic-Sch1eife 

FÜR I = 40960 10 49151 : POKL [ , P1 F K ( I) : MLX1 

realisiert werden. Befindet sich der Commodore 04 im Nor¬ 
malzustand, so adressiert man in diesem Bereich (dezimal 
40690 bis 49151) mit einem Lesevorgang (PLEK) immer das 
ROM, und mit einem Sehreibvorgang (POKL) immer das RAM. 
Dadurch gestaltet sich der Kopiervorgang besonders 
einfach. 

Jetzt können wir die Kopie des Basic-Interpreters nach 
eigenen Vorstellungen abändern. Trotzdem werden immer noch 
die Basic-Befeh 1e aus dem ROM abgearbeitet, bis wir den 
Befehl 

POKF 1 , PEF.K( 1) AND 127 

geben, womit der Prozessorport Nr. 0 auf Null geschaltet 
und das ROM ausgeblendet wird. 

Betriebssystem-Routinen, die nicht im Bereich $A000 bis 
SBFFF stehen können mit den obigen Befehlen nicht geändert 
werden. Wir werden jedoch in einem der folgenden Bände 
dieser Buchreihe ein Beispiel für eine Betriebssystem- 
Änderung geben. 

Die ABO-Funktion im Basic-Interpreter sieht zunächst so 
aus: 
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Adr. 

Code 

lief eh 1 

Kommentar 

I178B 

2082117 

■J8K $11782 

String holen, Länge in Y 

B78I 

1 008 

11LQ $11708 

Wenn i.änge=0, dann 'ILLEGAL 
QUANT! (V ERROR ’ 

11790 

A000 

Ll)Y //$()0 

Y = 0 

11702 

111 22 

EDA ($22) , Y 

erstes Zeichen holen 

11794 

A8 

1 AY 

ASCII-Code nach Y 

11705 

4CA2H3 

JMP $I13A2 

in Fließkomma umwandeln 

11798 

4043112 

OMP $1)248 

'ILLEGAL QLJANTITY ERROR' 

der 

Sprung in Adresse $B78F nach $B795 zeigen würde, 


wäre die Feh 1 erme 1 düng abgeschaltet. Fs muß jetzt noch 
sicliei'gesto 111 sein, daß die Funktion dann wirklich den 
Wert 0 zurüekgibt. Glücklicherweise benötigt die Routine 
$I13A2 nur das Y-Register als F i ngabe-Parameter, und das 
enthält ja Null, wei 1 darin die Länge des Strings gespei¬ 
chert war. 

VY i e brauchen also nur die Zeile bei Adresse $B78E ändern 
i n: 


H78L 1005 BFU $13705 

Die zu ändernde Speicherzelle $B78F hat die dezimale 
Adresse 46991, so daß die gesamte Änderung mit dem Befehl 

POKF 46991,5 

erledigt werden kann. Hier noch einmal das Listing des 
gesamten fiasic-Programms, das Für die Änderung des ASC- 
Befehls benötigt wird: 

50 FOP: 1 -4096071. 14 9151 

60 POLE i: , P!-_:f I- ■ I > 

70 HE 7 t : REH BH9 1 f IN PH LI LOOP I EPEN 

00 Pili £4699:1 ...5 :HSC -FUNKTION flENDERN 

50 F irib c; 1 PEEL 1 :• Ri ID J >7 ; L OP IE E .1 1 IS: I !ML F E.N 


6.5 Ein- und Ausschalten der Basic-Erweiterungen 


Beim Einschalten der Basic-Befeh 1e gibt es folgende Punkte 
zu beachten: 

Die Maschinenprogramme für die Basic-Erweiterungen stehen 
zunächst noch auf Floppy und müssen deshalb erst geladen 
werden. Dann muß noch das Maschinenprogramm INIT aufgeru¬ 
fen werden, das den Bef eil 1 s-Dekod i e r-Vektor umsetzt. 
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Im Direktmodus gibt man dazu folgende Befehle ein: 

LOAD “BASEKW.OBJ”,8,1 
NEW 

LOAD "GRASS.OBJ",8,1 
NEW 

LOAD "PAUSE.OBJ",8,1 
NEW 

SYS 51200 

Damit sind alle oben beschriebenen Befehle ( mit Ausnahme 
der geänderten ASC-Funktion ) eingeschaltet. 

Will man die Erweiterungen in einem Basic-Programm ein¬ 
schalten, so muß dies etwa folgendermaßen geschehen: 

10 IF l_=0 THEN L = 1 : LOAD “ BASERW. OBJ" ,8,1 

20 IF L = 1 THEN L = 2 : LOAD "GRASS.OBJ",8,1 

30 IF L=2 THEN L=3 : LOAD "PAUSE.OBJ",8,1 

40 SYS 51200 

Da das Programm nach einem LOAD-Befehl immer wieder zur 
ersten Zeile springt, muß in einer Variablen (hier: L) 
festgehalten werden, welche Maschinenprogramme schon 
geladen worden sind. 

Diese Verfahrenswe ise mag etwas umständlich erscheinen, 
jedoch können hier zusätzliche Erweiterungen leichter ein¬ 
gebaut werden, als wenn alle Befehle in einer einzigen 
Objekt-Datei gespeichert sind. 


Das Ausschalten geschieht einfach durch den neuen Befehl 
AUS bzw. SYS 51211 

der den Befeh 1s-Dekod i er-Vektor wieder auf seinen ur¬ 
sprünglichen Wert zurücksetzt. 

Bei rechenzeitintensiven Abläufen innerhalb komplexer Pro¬ 
gramme in denen keine Basic-Erwe i terungen benötigt, werden, 
kann man die Erweiterungen beliebig mit SYS 5120(1 und AUS 
ein- bzw. abschalten, um den Umweg der Prüfung von neuen 
Befehlen einzusparen. Dies ist jedoch nur in Ext,reinfä 1 1 en 
notwendig. 

SYS 51200 kann man beliebig oft eingeben, ohne: weitere 
Auswirkungen zu erzielen. Bei komplexen Procjrarnmstrukturen 
ist jedoch besonderes Augenmerk auf den Befehl AUS zu le¬ 
gen, der offensichtlich nur einmal nach SYS 51200 gegeben 

werden kann. 

r 
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7. Sonstiges 


Im letzten Kapitel sollen noch einige kleinere Hinweise 
zur besseren Nutzung des Commodore 64 gegeben werden. Da 
Programme der alten Serien 2000/3000 übernommen werden 
können, und als reines Basic-Programme im Prinzip sofort 
lauffähig sind, soll kurz auf die Übernahme solcher Pro¬ 
gramme eingegangen werden. 

Für die Serie 8000 gibt es mehr programmtechnische Hilfs¬ 
mittel, so daß eine Programmed i tierung dort auch für Com¬ 
modore 64-Programme sinnvoll ist. 

Ganz zum Schluß noch einige Hinweise auf besondere Eigen¬ 
heiten und die wichtigsten Adressen aus der Zero-Page. 


7.1 Programmübernahme über Kassettenrekorder 


Die Übernahme von Bas ic-Programmen der Serien 3000/4000/ 
8000 auf den Commodore 64 ist unproblematisch, da der 
Commodore 64 die Programme selbst anpasst. 


7.1.1 Serie 2000 auf Commodore 64 


Die Programmdateien beim Commodore 64 sind gegenüber der 
2000er Serie um ein Byte kürzer. Deshalb ist mit den An¬ 
weisungen (im D i rekt-Modus) 

POKF 2051,PEEK(2052) 

POKE 2052,PFEK(2053) 

POKF 2053,58 

schon die Lauffähigke i t hergestellt. Dies gilt natürlich 
nur für reine Basic-Programme. In den ersten beiden Zeilen 
wird die Anfangsadresse des Basic-Programmes um eine 
Adresse vorgezogen, und in der dritten Zeile wird das 
'frei' gewordene Zeichen in der ersten Programmzeile mit 
einem ’besetzt. Diese Doppelpunkt kann man dann im Ba- 
sic-Fditor nach LIST ganz normal löschen, wenn er stört. 
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7.1.2 Commodore 64 auf Serien 8000 und 3000 


Bei Übernahme von Programmen auf Rechner der Serie 8000 
und 3000 sieht die Sache etwas anders aus. Nach dem Laden 
des Programmes über den Kassettenrekorder ruft man zu¬ 
nächst den eingebauten Monitor mit 

SYS 1024 

auf, und läßt sicli die Speicherzellen 1024 bis 1030 
(dezimal) anzeigen mit 

•m 0400 0400 

Anschließend ändert man die Anzeige wie folgt ab: 

. 0400 00 01 08 00 00 3A 00 aa 

Damit wird der Programmanfang auch für die 8000/3000er 
Serie auf das beim Commodore 64 übliche 2. Kilobyte des 
RAMs gelegt, und eine Zeile 0 eingefügt, die einen 
enthält. 

Dann kann man mit 


. x 


den Monitor verlassen und mit 
0 (Return-Taste) 

die Zeile 0 gleich wieder löschen. Mit 
LIST 

hat man nun das gleiche Programm wie auf dem Commodore 64. 


7.2 Interessante Kleinigkeiten 


Rund um den Cursor 

Aktuelle Cursorposition 

Die aktuelle Position des Cursors läßt sich mit 
PEEK(214) (für die Zeile) 
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PLIK(21 1) (für die Spalte) 

Abfragen. Ebenso können Sie mit 

POKF; 214,(Zeile) 

POKI: 211,(Spalte) 

den Cursor setzen. Damit haben wir zwar den Cursor (für 
den Rechner) gesetzt, jedoch wissen Bildschirm- und Farb- 
RAM davon noch nichts. Aber dafür gibt es im Betriebssys¬ 
tem eine Routine, die man mit 

SYS 58460 

aufrufen kann. Als Übung für den Leser mögen die Routinen 
aus Kapitel 2.1 und 2.2 dienen, womit die Unterprogramme 
ab Zeile 20000 entfallen können. 

ACHTUNG !! Spalten und Zeilen werden von 0-39 und 0-24 
numeriert ! 


Cursor ein- bzw. ausschalten 

Der Cursor blinkt in der Regel immer, wenn der Computer 
etwas vom Anwender wissen will, außer wenn ein Zeichen von 
der Tastatur mittels des GET-Befehls angefordert wird. 
Soll der Cursor auch bei einer Eingabe mit GET blinken, so 
ist das Flag in der Zero-Page (Zellen 0-255 im RAM) ent¬ 
sprechend zu ündern. ’O' bedeutet 'Cursor ein' und ein an¬ 
derer Wert 'Cursor aus'. Also: 

POKE 204,0 : REM Cursor ein 

POKE 204,1 : REM Cursor aus 

Ob der Cursor gerade blinkt oder nicht, kann man durch 

PEEK(207) 

erfragen. Hier bedeutet der Wert '0' allerdings Cursor 
aus. Um Fehler zu vermeiden, sollte man vor dem Einschal¬ 
ten den Cursor erst auf 'dunkel' stellen, also die Be- 
feh 1 sfolge 

POKE 207,0 : POKF 204,0 


eingebe n. 
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REPEAT aller Tasten (Dauerfunktion) 

In der Regel sind nur drei Tasten (fünf Funktionen) mit 
einem automatischen Repeat ausgerüstet: die Cursorfunk¬ 
tionen und die Leertaste. Für alle anderen Tasten ist das 
erste Bit in Zellen 650 des RAM interessant. Ist dieses 
Bit gesetzt (PEEK(650) größer gleich 128), so haben alle 
Tasten eine Dauerfunktion: 

POKE 650,128 : REM Dauerfunktion ein 

POKE 650,0 : REM Dauerfunktion aus 


WAIT-Befehl 

Anstatt einer Schleife 

100 GE r A$: IF a$ = THEN 100 

kann man auch schreiben 

WAIT 203,63 oder 
WA IT 198,1 

Der erste Befehl wartet, bis eine Taste gedrückt wird und 
der zweite Befehl wartet, bis die Zahl der Zeichen im Tas- 
taturpuufer 1 ist. Beide Befehl haben die gleiche Wirkung. 

An den beiden Beispielen merkt man schon die Wirkungsweise 
des Befehls: es wird gewartet, bis in der zuerst genannten 
Speicherzelle der Wert erscheint, der hinter dem Komma 
eingegeben wurde. Dies gestattet eine elegantere Program¬ 
mierung, als die anfangs vorgeste1lte Schleife. Aber sie 
hat auch Nachteil, denn die Kompatibilität zu Rechnern 
einer anderen Serie geht verloren, da das RAM des Be¬ 
triebssystems bei jedem Rechner anders aufgebaut ist. 

Weitere WAIT-ßefeh 1e: 


WAIT 653,1 
WAIT 653,2 
WAIT 653,4 


REM Warten auf die SHIFl-Taste 
REM Warten auf die C= -laste 
REM Warten auf die CrRL-TasLe 
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7.3 Die wichtigsten Adressen aus der Zero-Page 


Hex-Adresse 


Dezimal 


Bedeutung 


2B 

— 

20 

43 

— 

44 

Zeiger auf Basic-Programm- 
Start (L,H) 

2D 

— 

2E 

45 

— 

45 

Zeiger auf Beginn der Varia¬ 
bein (L ; H) 

2F 


30 

47 

- 

48 

Zeiger auf Beginn der Arrays 
(L , H) 

31 

— 

32 

49 

— 

50 

Zeiger auf Ende der Arrays 
(L,H) 

33 

— 

34 

51 

— 

52 

Zeiger auf Beginn der Zei¬ 
chenreihen (L,H) 

37 

— 

38 

55 

— 

56 

Zeiger auf Ende des Basic- 
RAM (L,H) 

73 

“ 

8A 

115 

— 

138 

CHRGET-Routine für Zeichen 
aus Basic-Text 

7A 

- 

7B 

122 

- 

123 

Proqrammzeiger (L,H) 

90 



144 



Sf (Status) 

91 



145 



Flag für Stop-Taste 

98 



152 



Anzahl der offenen Dateien 

C5 



197 



Letzte gedrückte Taste 

06 



198 



Anzahl der Zeichen im Tasta¬ 
tur puffer 

07 



199 



Flag für RVS-Modus 

OB 



203 



Gedrückte Taste 

D3 



211 



Aktuelle Spalte des Cursors 

D6 



214 



Aktuelle Zeile des Cursors 

0100 


01FF 

256 


511 

Stack des Rechners 

0277 

- 

0280 

631 

- 

640 

Tastaturpuffer 

0281 

- 

0282 

641 

- 

642 

Start Basic-RAM 

0283 

- 

0284 

643 

- 

644 

Ende Basic-RAM 

0286 



646 



Aktuelle Farbe 

0287 



647 



Farbe unter Cursor 

0289 



649 



Länge Tastaturpuffer 

0 28A 



650 



R E P E AT alle Tasten 

0 28 D 



653 



Flag für SHIFT, C= und CTRL 







BitO, 1 und 2 

028 t 



654 



Flag für SHIFT 

0200 

- 

0 2 F t 

704 

- 

766 

Block 11 (für Sprites) 

0300 

- 

0301 

768 

- 

769 

Vektor für Fehlermeldung 

0311 

- 

0312 

785 

- 

786 

USR-Vektor (norma 1:$B248) 

0314 

- 

0315 

788 

- 

789 

IRQ-Vektor (norma1:$EA31) 
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Ilex-Adres so 

0316 - 0317 
0318 - 0319 
0330 - 031-1! 
0340 - 03 7 E 
0380 - 031!L 
0300 - 031 IE 


Dort wo (L,H) 
die wie f o 1 ij t 

Z = PEIK (l.Ze 


Oe / i um 1 


liOllOU I.IIIK] 


790 - 791 
792 - 793 
828 -1019 
832 - 894 
895 - 958 
960 -1022 


HRk-Vck l.or ( noi'iim 1: $I : L(3(3) 
IMMI-Vektor (normal : $11147) 
Handpuf fer 

Block 13 (für Sprites) 
Block 14 (für Sprites) 
Block 15 (für Sprites) 


steht, werden Werte bis (35535 (jespeichert, 
zu errechnen sind: 

Ile) + 25(3 * PEIK (2. Zelle) 



Anhang 
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Anhang 1 


Fabello der Parametcrtypen: 

A - Ausgabeparaine ter von diesem Unterprogramm 
K - Eingabeparameter Für dieses Unterprogramm 
G - Globale Var'iable 
11 - Hilfsvariahle 

P - Aufrufparameter an Unterprogramm 
R - Rückgabeparameter von Unterprogramm 
F - Transienter Parameter (ist in einem Unterprogramm 
gleichzeitig Eingabeparameter (E) und Aufrufpara¬ 
meter (P) bzw. A und R 

Globale Variablen gibt es zwar bei Basi’c nicht, da Basic 
keine bloek-orientierte Sprache wie z.B. PL/1 ist, aber in 
diesem Buch ist dieser Begriff für Variablen verwendet 
worden, die man in anderen Sprachen global definiert 
hat te. 


Da der verwendete 
und 'kleiner als' 
wie folgt ersetzt: 

NE - Not Egua1 
GT - Greater Tlian 
LT - Less Than 
GE - Greater or Egual 
LE - Less or Equal 


Zeichen 'größer als' 
wurden diese Zeichen 


/ ungleich 
/ größer als 
/ k1einer als 
/ größer gleich 
/ k1e iner gleich 


Typenraddrucker die 
nicht drucken kann, 


Die in den Kapiteln angegebenen Zeilenbereiche können mit 
denen der abgedruckten Listings differieren, weil offen¬ 
sichtliche REM-Zeilen (in der Regel die Überschriften von 
Unterprogrammen) nicht mitgedruckt wurden. 

Bei den Programmen mit hochauflösender Grafik wurden - 
entgegen dem abgedruckten Listing - einige REM-Zeilen 
gelöscht, da sonst der für hochauflösende Grafik reser¬ 
vierte Basic-Programm-Bere ich überschritten worden wäre! 
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Anhang 2 


Die Farbcodes des Commodore 64: 


FARBE 

POKE-WERT 

TASTE 

ZEICHEN 

SCHWARZ 

0 

CTRL. 1 

n 

HE I SS 

1 

CTRL 2 

.13 

ROT 

' 2 . 

CTRL 3 

01 

TUERKIS 


CTRL 4 

k 

VIOLETT 

4 
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Anhang 3 


In den Programm 1 istings tauchen folgende BiLdschirmsteuer- 
zeichen auf: 


B I L D S C H i: R H S T E U E R C 0 D E S 


ZEICHEN CODE 

CURSOR NACH UNTEN H 

CURSOR NACH OBEN ] 

CURSOR NACH RECHTS fl 

CURSOR NACH LINKS «ji 

DEL ( Ei£ I . LOESCHE N II 

HOME \CR'oR ÜBEN LINKS..' $ 

CLR EM LOSCH I RM L OE SCH ENT □ 
REVERSE EIN .3 

REVERSE AUS ■ 
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Anhang 4 

Sprite-Register: ( Basis 53248 ist jeweils zu addieren) 


Ganze Register je Sprite: 


Sprite 

X 

Y 

Farbe 

0 

0 

1 

39 

1 

2 

3 

40 

2 

4 

5 

41 

3 

6 

7 

42 

4 

8 

9 

43 

5 

10 

11 

44 

6 

12 

13 

45 

7 

14 

15 

46 


Ge samt register mit einem Bit je Sprite: 


Überträge X-Koordinaten 16 
Sprite ein/aus 21 
Ausdehnung in X-Richtung 23 
Ausdehnung in Y-Richtung 29 
Priorität gegen Hintergrund 27 
Multicolor 28 
Kollision Sprite/Sprite 30 
Kollision Spr i te/l I i ntergrund 31 



Ausblick auf die weiteren Bände: 
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Band 2: Basic-Spiele 

Spiele * Spiele * Spiele * Spiele * Spiele * Spiele * 
Denkspiele, Kartenspiele, Börsenspiele, Wirtschaftsspiele, 

Spiele * Spiele * Spiele * Spiele * Spiele * Spiele * 


Ein Buch nicht nur zum Spiele abtippen, denn die gibt es 
auch auf Diskette, sondern zum selbst ergänzen und ändern. 
Alle Spiele sind in der gelieferten Form für komplettes 
Spiel geeignet, aber Software läßt sich ja immer verbes¬ 
sern . 


Band 3: Leitfaden für Fortgeschrittene 

- Multi-Color-Sprites 

- Multi-Color-Graf ik 

- So und-Generator 

- Disassembler 

- Datenverwaltung mit der Floppy 

- Deutsche Fehlermeldungen 


Band 4: Assembler / Disassembler 


Der Assembler aus Band 1 und der Disassembler aus Band 3 
werden um einiges ergänzt, z.B. durch Aneinanderbinden von 
Source-Files, und alles wird natürlich genauer erklärt. 


Band 5: Simon's-Basic 

Nützliches im Umgang mit Simon's Basic. Ein erweitertes 
und kommentiertes Handbuch. 


Band 6: Spiele 


Nochmals Spiele. Diesmal mit Maschinenprogrammen und Musik 
sowie vielen Kniffen. 



Lieferbare Markt & Technik-Titel: 


Programme und Tips für VC-20 

Best.-Nr. MT 513 DM 38,-* 

Das VC-20 Buch 

Best.-Nr. MT 516 DM49,—* 

Das VC-20 Buch — Beispiele auf Kassette 

Best.-Nr. MT 581 DM19,90* 

Das VC-20 Buch — Beispiele auf Diskette 

Best.-Nr. MT 582 DM29,90* 

Ein-Chip-Mikrocomputer-Handbuch 

Best.-Nr. MT 517 DM58,—* 


Das Datenbanksystem dBASE II 


Best.-Nr. MT524 DM68,— * 

Basic-80 und CP/M 

Best.-Nr. MT 525 DM48,—* 

Einführung in Datenbanksysteme mit 
dBASE II 

Best.-Nr. MT 526 DM68,—* 

dBASE II richtig eingesetzt 

Best.-Nr. MT 541 DM68,—* 

dBASE II richtig eingesetzt — Beispiele auf 
Diskette (IBM-PC) 

Best.-Nr. MT 544 DM30,— * 

ab 1.1.84 DM 48,-* 

Einführung in C 

Best.-Nr. MT 561 DM69,—* 

Mit Lotus 1-2-3 zur integrierten Problem¬ 
lösung 

Best.-Nr. MT 562 DM68,—* 

Basic-Dialekte im Vergleich 

Best.-Nr. MT 564 DM32, — * 

Das Commodore 64-Buch, 

Bd. 1: Leitfaden für Erstanwender — 
mit Assembler 

Best.-Nr. MT591 DM48,—* 

Das Commodore 64-Buch, 

Bd. 1: Beispiele auf Diskette 

Best.-Nr. MT 592 DM58,-* 

Das Commodore 64-Buch, 

Bd. 2: Basic-Spiele 

Best.-Nr. MT 593 DM38,—* 

Das Commodore 64-Buch, 

Bd. 2: Beispiele auf Diskette 

Best.-Nr. MT 594 DM58,—* 


Das Commodore 64-Buch, 

Bd. 3: Leitfaden für Fortgeschrittene 

Best.-Nr. MT 595 DM38,—* 

Das Commodore 64-Buch, 

Bd. 3: Beispiele auf Diskette 

Best.-Nr. MT 596 DM58, — * 

Das Commodore 64-Buch, 

Bd. 4: Leitfaden für Programmierer — 
Assembler — Disassembler 

Best.-Nr. MT 597 DM38,— * 

Das Commodore 64-Buch, 

Bd. 4: Beispiele auf Diskette 

Best.-Nr. MT 598 DM58, — * 


Das Commodore 64-Buch, 

DM 48 —* 5: Simon’s Basic 

Best.-Nr. MT 599 DM38,—* 

ne mit _ _ . _ 

Das Commodore 64-Buch, 

DM68 -* Bd. 5: Beispiele auf Diskette 

Best.-Nr. MT 600 DM58, — * 

DM68 — * Computerspiele und Wissenswertes — 

Commodore 64 

Beispiele auf Best.-Nr. MT601 DM 29,80* 

DM 30 — * Computerspiele und Wissenswertes — 

11 84 DM 48 -* Commodore 64: Beispiele auf Diskette 

Best.-Nr. MT 602 DM38,—* 

dm 69 —* Bas Spielebuch Commodore 64 

' C Best.-Nr. MT 603 DM29,80* 

Problem- 

Das Spielebuch Commodore 64: Beispiele 
DM68,-* auf Diskette 

Best.-Nr. MT 604 DM38, — * 

dm 32 -• Software-Schnellkurs: CP/M 

Best.-Nr. MT 605 DM37, — * 

j er _ Software-Schnellkurs: MailMerge 

Best.-Nr. MT 606 OM 37,—* 

DM48,—* Software-Schnellkurs: dBASE II 

Best.-Nr. MT 607 DM 37,—* 

Software-Schnellkurs: SuperCalc 

DM58,-* Best.-Nr. MT608 DM37,—* 

Software-Schnellkurs: Wordstar 

Best.-Nr. MT 609 DM37,—* 

DM38,—* Software-Schnellkurs: Multiplan 

Best.-Nr. MT 610 DM37,—* 

Software-Schnellkurs: Lotus 1-2-3 

DM58,—* Best.-Nr. MT 611 DM37, — * 

* inkl. MwSt. zuzügl. Versandkosten 


Madd&fechnik 


Hans-Pinsel-Straße 2 - 8013 Haar bei München - Telefon 4613-220 




Das Commodore 64-Budi 

P au l \m Ein Leitfaden 
DGIIU !■ für den Erstanwender 


Einige Bücher, die den Commodore 64 zum Thema 
haben, sind schon auf dem Markt erhältlich. Die 
meisten Bücher sind jedoch für die Belange von be¬ 
stimmten Anwendergruppen geschrieben. 

Das vorliegende Buch soll für den Einsteiger mit 
dem Commodore 64 ein Leitfaden sein. Das heißt 
nicht, daß dieses Buch einen kompletten Basic-Kurs 
beinhaltet, sondern daß von Beginn an alle Mög¬ 
lichkeiten des Commodore 64 beschrieben werden. 
Im ersten Kapitel werden zur Einführung einige 
Programme beschrieben, die in dieser Form auch 
auf anderen Rechnern (besonders anderen Commo- 
dore-Rechnern) laufen. Erst nach dieser Grundlage 
wird auf die speziellen Eigenschaften des Commo¬ 
dore 64 eingegangen. 

Die meisten Programme sind so aufgebaut, daß sie 
vom Leser noch nach seinen Wünschen ergänzt wer¬ 
den können. Für Übungszwecke werden immer wie¬ 
der Tips für Änderungen oder Erweiterungen gege¬ 
ben. Es ist nicht Sinn dieses Buches, vorgefertigte 
Programme zu liefern, sondern den Leser beim akti¬ 
ven Arbeiten mit seinem Rechner zu unterstützen. 


Die vielfältigen Möglichkeiten des Commodore 64 
konnten nicht alle in diesem Buch behandelt wer¬ 
den, da großer Wert auf eine genaue, leichtver¬ 
ständliche Beschreibung der Fakten gelegt wurde. 
Es sei daher an dieser Stelle auf die weiteren Bände 
hingewiesen. 

Band 2 dieser Reihe befaßt sich mit Spielen und ist 
analog zu Band 1 aufgebaut. Also nicht nur »Dis¬ 
kette rein — spielen«, sondern »spielend Program¬ 
mieren lernen«. Band 3 ist ein Leitfaden für Fortge¬ 
schrittene und behandelt die Themen, die in Band 1 
nicht behandelt wurden. Band 4 ist den Freunden 
des Maschinenprogramms gewidmet. Dort werden 
ein ausführlicher Assembler und ein Disassembler 
genau erklärt. Band 5 ist einer weitverbreiteten 
Software-Erweiterung des Commodore 64 gewid¬ 
met: dem Simon’s Basic. Band 6 bringt schließlich 
wieder Spiele — für Spiele-Profis mit Maschinen¬ 
programmen. Zusätzlich sind zu jedem Band Dis¬ 
ketten erhältlich, die dem Leser das Eintippen der 
beschriebenen Beispiele ersparen. 
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